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SUMMARY 


The NAVY/NASA Engine Program (NNEP) is a computer program that is currently 
being used to simulate the thermodynamic cycle performance of almost all types 
of turbine engines by many government, industry, and university personnel. 

NNEP uses arrays of input data to set up the engine simulation and component 
matching method as well as to describe the characteristics of the components. 
This report describes a preprocessing program (KONFIG) in which the user at a 
terminal on a time shared computer can interactively prepare the arrays of 
data required. It is intended to make it easier for the occasional or new 
user to operate NNEP. This report also describes REKONFIG, another prepro- 
cessing program, in which the user can modify the component specifications of 
a previously configured NNEP dataset. It is intended to aid in preparing data 
for parametric studies and/or studies of similar engines such as mixed flow 
turbofans, turboshafts, etc. 


INTRODUCTION 


The NASA Lewis Research Center in conjunction with the Naval Air Development 
Center jointly developed a computer code for simulating the thermodynamic 
cycle performance for arbitrary turbine engines, i.e., the code can assemble 
arbitrary combinations of specified types of components (such as ducts, com- 
pressors, turbines, etc. ) through the use of input variables rather than having 
to build a computer code exclusively for each engine configuration. This com- 
puter code, the NAVY/NASA Engine Program (NNEP), reference 1, extended the 
capabilities of an existing Navy code, NEPCOMP (ref. 2), to include flow switch- 
ing capabilities for variable cycle engines, "stacked" component maps for 
variable geometry, optimization capability, a simple installation effects model 
as well as other changes either discussed in reference 1 or described in a pre- 
viously unpublished User's Manual which was sent to each user of the code. It 
is assumed that the reader, of this report is already familiar with NNEP or, has 
access to reference 1 . 

As of the present time, NNEP has been supplied to 41 government, industry, or 
university installations. While NNEP was created to use a simplified input 
mettiod, the occasional or new user still makes input errors of either omission 
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or commission, namely, leaving out required inputs or putting the data in the 
wrong slots in the input arrays. Therefore, it was decided that a separate, pre- 
processor program to prompt the user in an interactive mode for the required input 
data, which would then prepare the data in the correct format for NNEP,’ would be 
beneficial. This report presents the User's Manual for NNEP (Appendix A), the 
listing of the code "KONFIG" (Appendix B), and an illustration of it in use 
(Appendix C). The preprocessor program is available from the author in card form 
(318 cards). 

The versatility of the NNEP code in computer simulation of wide varieties of engine 
cycle and component arrangements is its most prominent feature, but it is also 
frequently used for conducting parametric studies of an engine once this engine 
has been configured through the use of inputs. 

To aid in the conducting of parametric studies and in studying similar engines, 
another preprocessor computer code has been written that starts with an existing 
dataset, tells the user what all the design (SPEC) values for each variable are 
and makes it exceptionally easy to change these values. When the user has imple- 
mented all the changes, the code creates a new dataset incorporating the changes. 
Note that the CNTL, OPTV, and LIMV "components" cannot be changed using REKONFIG. 
This report presents the listing (Appendix D) of the code "REKONFIG" and an illu- 
stration of it in use (Appendix E). REKONFIG is also available from the author in 
card form (240 cards). 


USER'S MANUAL 


As previously mentioned in the Introduction, the latest version (December 9, 1980) 
of the NNEP User's Manual has been included as Appendix A. This manual, not pre- 
viously formally published, was sent with each request for NNEP. It defines the 
SPEC and DATOUT definitions for each component type and will allow the user to 
compare his/her final dataset with the manual to verify the input values. 


OPERATION OF KONFIG 


"KONFIG" has been written in Fortran IV to be used in an interactive mode. To 
accomplish this, all "READs" are from unit 35. All "WRITES" for which the user 
will be expected to respond are written on unit 30. After each individual com- 
ponent in the engine has had its input data supplied by the user, a copy of KONFIG 
and SPEC (or SPCNTL or SPLIMV) (see ref. 1) input images for that component is 
written onto unit 30 and another copy onto unit 6. If the user defines a dataset 
as being unit 6, the images v/ill be saved for incorporation as NNEP input. 

"KONFIG" uses fixed field inputs. Each field is indicated at the terminal. The 
user can enter the input anywhere in this field if a decimal point is specified, 
otherwise the inputs must be RIGHT adjusted. 
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EXAMPLE CASE 

Appendix C contains a photocopy of the .five (5) pages from an actual terminal 
session for generating the input cards for a one-spool turbojet which uses maps 
for compressor and turbine performance. A block diagram of the engine showing 
component and flow station numbers, is shown below. 



Controls are set to eliminate three flow errors and one shaft-horsepower error.' 
The pressure ratio of the turbine will be used to reduce the flow error in the 
nozzle to zero. The "R" value of the compressor will reduce the flow error at 
the turbine face to zero, the inlet airflow will reduce the flow error at the 
compressor face to zero, and the shaft speed will be used to reduce the s-haft 
net horsepower error to zero. An optimization variable will be included but 
not turned on so that, when generating throttle curves, the nozzle area will 
be optimized to minimize the SFC of the engine. 

After the end (of configuring the engine) was indicated by inputting the word 
“done," the dataset written out onto unit 6 was processed through a text editor 
to eliminate all blanks to the right of column one. This set of processed images 
are shown in Appendix C. They would form the basis of the final dataset that the 
user would prepare for running NMEP. 

The final dataset would be generated by adding to the dataset a title card, the 
NAMELIST input identifying the variables shown on pages A2 and A3 of the User's 
Manual, and the "&D MODE = 1" and "SEND" cards. The off-design cases would then 
be added. 


OPERATION OF REKONFIG 


REKONFIG has been written in Fortran IV to be used in an interactive mode. To 
accomplish this, all "READs" of the initial dataset are from unit 9 and all 
"WRITES" of the final dataset are to unit 10, and unit 8 is used as a scratch 
unit. This is identical to the way NNEP operates. The interactive capability 
of modifying the dataset has been added by prompting the user for inputs by 
"WRITES" on unit 30 and the user's responses "READ" from unit 35. Upon executing 
the program, the user is prompted to tell the code whether a change is desired 
in the input values for particular components (called out by component numbers) 
or the entire engine (signalled by the user by just hitting "RETURN"). An example 
of each type of use will be shown. 


I 
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In operation, the code will print on unit 30 the component number that is being 
processed followed by a list of the input variables, their current values and 
a key letter which is used to identify each variable. Figure 1 shows a typical 
list for a compressor. To change a value, the user types in column one the key 
letter followed by at least one blank followed by the new value which must have 
the decimal point included. For the current component, the user continues to 
change as many values as desired including rechanging any value. 

Three other key letters appear on the list, namely R, T, and Q. They serve the 
following purposes: R (review) will cause the code to print the entire list over 

again for .this component including the updated values of the variables; T (ter- 
minate) signals the computer to go on to the next component (either in the pre- 
scribed list or by next higher component number if doing entire engine); and Q 
(quit) the user is done, finish creating the final dataset. 


EXAMPLE CASES 


Two example cases are shown in Appendix E. In the first, just the inlet and 
burner inputs will be changed. In the second, all the components will be changed 
In both cases, the initial dataset is named SAMPLE. SEPFLOTF and represents 
a separate-flow turbofan engine. The identification to the computer of the 
various input and output units is shown. The final dataset has been processed 
through an additional editor to eliminate extraneous zeros and eliminate unneces- 
sary blanks. 


CONCLUSIONS 


The preprocessor programs described in this report can help to eliminate input 
errors to the NNEP computer program and are easy to use. KONFIG leads the user 
through the engine component by component, prompting the user for the required 
inputs. REKONFIG is used to modify existing input datasets and can greatly 
reduce the time to prepare new datasets to be run on the NAVY/NASA engine pro- 
gram NNEP. These codes are not, however, teaching devices. The user is expected 
to know how to run NNEP, how to "configure" an engine, and how to set up the 
control philosophy. 
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INDEX VALUE 
A 1.3000 

B O.SOOOOD-01 
C 1.0000 

D 1004.0 

E 1.0000 

F 1005.0 

6 1.0000 

N 1006.0 

I 1.0000 

J 0.00000 

K 0.00000 

L 0.86000 

N 6.0000 

H 1.0000 

R 
T 
Q 


DEFINITION 
R VALUE 

BLEED FLilM FRACTION 
SCALE F ON CORR. SPEED 
CORR AIRFLOW OR TABLE NO. 

SCALE F ON CORR AIRFLOW 
EFF. OR T^BLE NO. 

SCALE F ON EFF. 

PRATIO OR MAP NO. 

SCALE F ON PRATIO 
3D HAP Z VALUE 
FRACT. BLEED HP LOSS 
EFFICIENCY 
PRATIO 

CORRECTED SPEED 

REVIEW ALL VALUES 

TERMINATE-GO ON TO NEXT COMPONENT 

quit-end of PROCESSING FOR ENTIRE ENGINE 


Figure 1. - Typical key letter list fdt* cbmpressor. 



APPENDIX A 
NNEP USER'S MANUAL 


titlEe.liAtlUAL-=.UEeSlQU.2 

lahle-ol-Cooieois 

PaSe 

Input Instructions 2 

Inlets 6 

Ducts and Burners 7 

Conpressors 8 

Turbines 9 

Heat Exchanders 11 

Splitters 11 

Mixers 12 

Nozzles 13 

Water Injectors 14 

Shafts 15 

Loads 16 

Controls 17 

Optinization Variables 19 
Linitina Variables 21 

Marchind 22 

Table Data Inputs 23 

Miscellaneous 25 
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Revision 3s of Oeceaber 9rl980 


The verisble cade version of NEP differs dreatla froa the 
orisinsl in teras of inputs* This writeup will atteapt to 
educate the user as to the new input fora and to additions 
which have been aade to the code* 

NAMELIST is now used with SD the NAMELIST call* Data is read 
in on Unit 9 except for the component maps which are read on 
Unit 12* Output is on Unit 10* 

The first card read in on 9 is a title card for the cases 
and can be 60 characters in lensith* 

Follouina this card will come the NAMELIST data* The first 
set of data read in consists of the followinS* 

NCOMP - the total number of components includinS controls 
that will be configured throush all the modes* Note 
that it is not necessary that any one mode use all 
of the components* Note also that if a component is 
used in more than one moder its number must not 
chanSe from mode to mode and that the same number 
may not be used for more than one component* 

NOSTAT - the number of stations configured throuSh all of 
the modes* It is NOT necessary that these remain the 
same through all modesf but it is advisable to keep 
as many the same as possible for clarity* 

NM0DE5 - the total number of modes to be configured* 

( Default value is 1 ) 

MODESN - designates the desiSn mode* ( Default is 1) 

IWAY - input IWAY=1 if desisn point ( Default is 1 for 
first point* and 0 for all other points) 

TABLES - TRUE if maps are used* FALSE if not* ( DefaultJT ) 

ITPRT - if = 0 do not print tables (maps) on output 

if * 1 print tables on output ( Default is 0 ) 

NCODE - if = 1 normal runninS 

if = 2 debus runninS ( output after each pass ) 
if = -1 or -2fsame as +1 i +2 BUT FULL PASS thru 
cycle is made on each pass 
if = 3 indicates that a seauence of desiSn points 
follows (shortens output) and obviates need 
to supply a ID IWAY=1 SEND for each case 
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LABEL - 3 control for printing 3 l3bel 3t the toe of 3 P3de 

to identify the point beind run# Set LABEL =F until 
off-desisin points ere run* Then? if lebels ere 
desired? set LABEL=T and follow the NAMELIST dots 
with the label card ( siailar to the title card) 
See 3lso PINPUT* ( Befault is F) 

PUNT - set PUNT = T to use last dood point 3S set of first 
Stresses for next point* It is advisable to always 
have PUNT=T* ( DefaulttT ) 

LONG - control for printind of history of the converdence 
process* It is advisable to have L0N6=T for new 
problems* ( BefaulttT ) 

PINPUT *■ a control for causind the NAMELIST input for a case 
to be printed on the output sheets prior to the 
results for that case* PINPUT causes a write on 
Unit 8 which must therefore be DDEF'd* If PINPUT is 
FALSE? no NAMELIST output will occur* ( DefaultiT) 

NCASE - set = to 1 for new desidn case with NEW K0NFI6 
<Default initially = 1? then set to 0) 

DRAM - set = T for fidure to be drawn ( DefaulttF) 

AHAC - set = T to punch data cards for AMAC < ifefaulttF) 


Installation effects have now been added to the prodrae* The 
followind inputs »ust appear on the first set of NAMELIST 
data cards if installation effects are desired* If they are 
not desired? there is no need to input any of the* as the 
default values will eliminate the installation effects 
calculations* 

BOAT - set B0AT=T for boattail drad calculations 

SPILL - set SPILL=T for spillade I lip drad for inlet 

INLTDS - set = T at operatind condition for sizind the inlet 
(ie* nay or nay not be set T on first set of cards) 

SPLDES - anount of desidn spillade when INLTDS=T (fraction) 

AMINDS - flidht Mach nunber at point where INLTDS is TRUE 

BLMAX - no londer an input* The inlet bleed is now set = to 
.016 * anttl.S 

BPMAX - naxinuA inlet bypass flow fraction ( usually at a 
Mach nunber of 1*6) not currently used* 
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This is 3ll of the data that is read on the first NAMELIST 
read» If TABLES=T» the code will now do to Unit 12 and read 
in the aaes* The fora of data for the aaps is different froa 
that in the original NEP report* These asps can now be 
stacked* It is best to look at a set of existing aaps to 
deteraine the new foraat* At this point we have told the 
code how aans aodes are to be read in* We will now read in 
the configuration data and specifications for these aodes* 
This is accoaplished in NNEP through a DO LOOP* After NNODES 
of data have been read inr the prodraa will run M0DE8N as 
the desiSn point* 

Thus we now input SO H0DE=1> and read in the data for aode 
1* Ue end this read with SEND? then input SO M0DE=2> etc* 

Each of the coaponent twpes has a different set of input 
variables* The fora however is invariate except for 
controls* Each of these tupes will now be discussed* 

For all twpes except controls and optiaization variablesr 
data is read in the followinS fora* 

KONF 10 < 1 » N ) = ' NAME ' » JMl f JM2 » JPl » JP2 f 

SPEC(1»N) or SPECS(lfN)=VlfV2» V15 (both naaes work) 

where N is the coaponent nuaber 

JMl is the priaarw upstreaa airflow station nuaber for flow 
coaponents or the first coaponent hooked ontq a shaft* 

JM2 is the secondare upstreaa station nuaber* or the second 
coaponent hooked onto a shaft* 

JPl is the priaare downstreaa station nuaber* or the third 
component hooked onto a shaft* 

JP2 is the secondare downstreaa station nuaber* or fourth 
coaponent hooked onto a shaft* 

NAME identifies the tepe of coaponent and is entered in 
sindle Quotes as follows 
'INLT' = inlet 
'DUCT' = duct or burner 
. 'COMP' - coapressor 
'TURD' = turbine 
'HTEX' = heat exchander 
'SPLT' = splitter 
'HIXR' = aixer 
'NOZZ' = nozzle 
'WINJ' = water injector 
'LOAD' = load 
'SHFT' = shaft 
'CNTL' = control 
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- 'OPTV' = opiiaizstion variable 
'LIHV' = lieit variable 

SPECS are now used to fill an arras DATINP inside NNEP* Soee 
.DATINP are not reouired as ..inputs or have their values 
, .chansed internalls* Ue will now discuss SPECr DATINPi and an 
updated DATINPt printed on the outputr and DATOUT for each 
coeponent tspe» 

..By settinS the variable ENDIT»1 any place in an input 
dataset* execution will tereinate at the PREVIOUS case* 


ttttttttttttttttttttttttt 

The followins sues up the eaJor changes to NNEP that are 
incorporated in this MANUAL* 

the ability to calculate COOLING reeuireeents on a row by 
row basis in the turbine has been added* Coolind type eay 
be different for each row* Decreases in turbine efficiency 
can also be accounted for* The eethod is docueented in NASA 
TM 81453* Feb* 1980 by J* U* Gauntner of NASA Lewis (see 
PAGE 10) 

The ability to override the standard THERMO routine of NNEP 
with one capable of calculatinS the properties for any 
carbon to hydroden ratio and account for dissociation (see 
PAGE 25) 
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INPUTS 


SPEC( 

1) = 

DATINP( 

1) = 

DATINP»( 

SPEC( 

2) = 

DATINP( 

2) = 

DATINP»( 

SPEC( 

3) = 

DATINP( 

3) = 

DATINP»( 

SPEC( 

4) = 

DATINP( 

4) = 

DATINP»( 

SPEC( 

5) = 

DATINP( 

5) = 

DATINP»( 

SPEC( 

6) = 

DATINP< 

6) = 

DATINP»( 

SPEC( 

7) = 

DATINP( 

7) = 

DATINP*( 

SPEC( 

B) = 

DATINP( 

8) = 

DATINP«( 

SPEC( 

9) = 

DATINP( 

9) = 

DATINP*( 

SPEC(10)= 

DATINP( 

10) = 


SPEC(11)= 

DATINP(ll) 


SPEC(12)= 

DATINP(12)= 



SPEC(13)= thru 
SPEC(15)= 


1) -inlet weight flow-lb/sec 

2) -Tos - free sireaa temp -R 

3) -Pos - free stresn P-lb/in2 

4) -inlet draS Table ref. 

nueber- if blank computed 

5) -Mach number at inlet 

6) -inlet recoveru» constant 

or Table ref. number 
If =0. Hil Spec is used 

7) -if 8PEC(&)= Ref #»7=»3K 

permitted flow in table 

8) -if SPEC(6)= Ref *»8=scale 

factor on flow 

9) -Altitude-feet» onl« used 

if Tos and Pos«0 (see a) 
(Geometric altitude) 

-f/a at inletfusuallw = 0 
If non zero» SPEC(9) is 
Seopotential altitude 
-del T to be added to Tos 
(usually 0) (see a) 

-BLANK 

-BLANK 


(a) If Del T is to be added to Tos» Altitude (SPEC(9>) 
cannot be 2 ero> thus for SLSf set SPEC(9)=. 00001 

NOTE*. MACH»ALTPf and ETAR can replace SPECS 5»9»and 6 


OUTPUTS 


DATOUT(l) 

DAT0UT(2) 

DAT0UT(3) 

DAT0UT(4) 

DAT0UT(5) 

DAT0UT(6) 

DAT0UT(7) 

DAT0UT(8) 

DAT0UT(9> 


-inlet drad from Table or computed 

-velocity - ft/sec 

-velocity - knots 

-ram temperature ratio 

-ram pressure ratio 

-Mach number 

-inlet recovery -exit total pressure/ram pressure 
-exit temperature/518.67 
-altitude - feet 
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Component 'DUCT' is used for ducisr burners^ end efterburners 


INPUTS 


SPEC( 

1) = 

DATINP( 

1) = 

DAT1NP«( 

SPEC( 

2) = 

DATINP( 

2) = 

DATINPt( 

SPEC( 

3) = 

DATINP( 

3) = 

DATINP«( 

SPEC( 

4) = 

DATINP( 

4) = 

DATINP*( 

SPEC( 

5) = 

DATINP( 

5) = 

DATINP«( 

SPEC( 

6) = 

DATINP( 

6) = 

DATINP»( 

SPEC( 

7) = 

DATINP( 

7) = 

DATINP»( 

SPEC( 

8) = 

DATINP( 

8) = 

DATINP»( 

SPEC( 

9) = 

DATINP( 

9) = 

DATINP»( 


SPEC(10)= DATINP(10)= 
SPEC(ll)- thru 
SPECdS)- 


1) -del P/P pressure drop or 

Table ref nueber 

2) -optionalfdesidn duct Mach 

nueber* see (a) 

3) -BLANK 

4) -burner outlet teep -R 

if DUCT-BLANK 

5) -burner efficiency or 

Table reference nuaber 
if DUCT-BLANK 

6) -fuel heatind value or 

Table ref* nuaber - 
usually 18t300 
if DUCT-BLANK 

7) -cross sectional area of 

duct or burner (see a) 

8) -ratio of inlet entrance 

bleed flou/total bleed 
available -DUCT only 

9) -exit bleed/ total flow 
-fract* air not heated 

BLANK 

BLANK 


(a) If SPEC(2) is input? then area DATINP»(7> will be 
calculated at the desidn point* This area is then 
used to calculate aoaentua pressure drop* 


OUTPUTS 


DATOUT(l) 

DAT0UT(2> 

DAT0UT(3) 

DAT0UT(4) 

DAT0UT(5) 

DAT0UT(6) 

DAT0UT(7) 

DAT0UT(8) 

DATOUK?) 


-del P/P froB aoaentua pressure drop 
(SPEC(2) or SPEC<7) was specified) 

-del P/P froa DATINP(1)=SPEC(1) 

-pressure ratio at duct inlet used to compute inlet 
Hach nuaber (Total/Static) 

-fuel flow/ duct inlet weidht flow 
-cross sectional area - in2 
-fuel flow - Ib/hr 

-inlet Hach nuaber (if SPEC(2> or (7) was specified 
at the desidn point ) 

-burner efficiency 

-burner outlet temperature (before bypass added) 
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INPUTS 


SPEC( 1)= DATINP( 1)= DATINP*< 1)-R value used to read Tables 

SPEC( 2)= DATINP( 2)= DATINP«( 2)-coep. bleed flow/total flow 

SPEC( 3)= DATINP< 3)= -scale factor on N/ * 0 

( usuallw si) 

DATINP*( 3)-N/ fro* *ap » scale f 
SPEC( 4)= DATINP( 4)= DATINP»( 4)-W / or Table ref no. = 0 

SPEC( 5>= DATINP< 5)= -Scale f on W / =0 

( usuallw = 1 ) 

DATINP*( 5>-M / actual scale factor 

= Uco*p/Wb3P 

SPEC( 6)= DATINPt 6)= DATINP»( 6)- co*p. adia. eff or Tab. # 

SPEC( 7)= DATINP( 7)= - cobp. adia. eff at desidn 

DATINPX 7)“scale f on for taps 
SPEC< 8)= DATINP( 8)= DATINP»( 8)-co*p PR or table ref. no. 
SPEC( 9)= DATINP( 9>= -scale f on pressure ratio 

DATINP*( 9)-if SPEC(13) is inputi *9 
is calculated scale f 

SPEC(10)= DATINP(10)= -3rd di*. arS value on map 

SPEC(11)= DATINP(11)= -fractional bleed horsepower 

loss due to interstate bleed 
= 0 Beans all bleed after 
full coBPression 

SPEC<12)= DATINP(12)= -desired adia. eff. at des.pt. 

SPEC(13)= DATINP(13)=»» -desired PR at R and N/ 

SPEC<14)= DATINP<14)= -N/ for desitn pt. on b3ps 

SPEC (15)= -BLANK 


OUTPUTS 


DATOUT(l) -horsepower reouired (netative) 
DAT0UT(2) -Physical rp* 

DAT0UT<3) -3rd. Din. artUBent on coBpressor b3ps 
DAT0UT<4) -R value used on naps 
DAT0UT(5) -surte *artin in percent 
DAT0UT(6) -N/ used to read naps 
DAT0UT(7) -scale factor on M / 

DAT0UT(8) -coBPressor efficiency 
DAT0UT(9) -coBpressor pressure ratio 


»» overrides SPEC(9) if nonzero. If Tables ere not used 
leave SPEC(9)=0. 
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INPUTS 


SPEC( 1)= DATINP< 1)= DATINP*( l)-pressure ratio at design 

point on aaps 

SPEC( 2)= DATINP( 2)= DATINP*( 2)-total bleed into turbine/ 
total bleed available 

SPEC< 3)= DATINP< 3)= -scale f on H/ (usui-1) 

DATINP<< 3)-calculated scale f to 
aatch speeds at des«pt« 

SPEC( 4)= DATINP( 4)= DATINP»( VP or Table ref. no. 

SPEC( 5)= DATINP( 5)= -scale f on W /P (usu.=l) 

DATINP»( 5)-calculated scale f to 

Batch airflow at des.pt. 

SPEC< 6)= DATINP( 6)= DATINP*( 6)-turb adia. eff or Tab.no. 

SPEC( 7)= DATINP< 7)= -desidn turb. adia. eff. 

DATINP»( 7)-scale f to Set desidn eff 
at desidn point on bops 

. SPEC( 8)= DATINP< B)= -scale f on PR (usuallwsl) 

DATIMP*( 8)-scale f calculated to det 
desired PR on bsp 

SPEC( 9)= DATINP( 9)= DATINP»( 9)-turb. bleed flow at ent./ 

total bleed flow 

, SPEC(10)= DATIHP(10>= -3rd die. ard value on Bap 

SPEC<11)= DATINP<U)* -desired at desidn pt. 

SPEC(12)= DATINP<12)= -N/ at desidn pt. on Bap 

SPEC(13)= DATINP(13)= -turbine horsepower split 

(usuallwsl) 

SPEC(1A)= DATINP<14)= ♦♦ -factor for coolind tape 

. 8PEC(15)= DATINP<15)= ♦* -nuaber of turbine stades 


OUTPUTS 


DATOUT(l) -horsepower produced ba turbine (positive) 

, DAT0UT(2) -phasical ppb 

DAT0UT(3) -Srd.dieension arduaent value on turbine aaps 
PAT0UT(4) -pressure ratio used in Table lookup 
DAT0UT(5) -scale factor, on N/ 

DATOUT(A) -N/ used in Table lookup 
. DAT0UT(7) -scale factor on M /P 
DAT0UT<8) -turbine efficienca 
DAT0UT<9) -turbine overall pressure ratio 


itt see next pade for defs. + aore coolind instructions) 
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CoQlioa.Calculatiaos>eec_IH-B14S3 


In order to calculate bleed reouireaentsi the following 
procedures are to be followed* 

CALBLD is set TRUE where bleed reeui resent is to be 
detersinedt 

A control oust be set to varw SPEC(2> of the coseressor 
where bleed is beind resoved to drive 'PERF' 15 to zero» 

. Your other controls saw or saw. not be turned on - sake sure 
,.sou set thes to operate the was wou want thes to! For 
exaspler do uou want BPR to be chandind at the desidn point? 

.SPEC(14> . is set to indicate twpe of coolind row bw rowt 
'SPEC(14)=coolind type row by row thru turbine 
See TABLE I : 

Default value-88 (1 stade turbine with full fils coolind) 

SPEC(1S)= nusber of turbine stades and is only used in 
^ sizind bleed reauiresents* (Default is 1 stade) 

ELIFE=desired endine life (Default 10000 hrs») 
yEARV=year of first service of vane (Default 1985) 

YEARB=year of first service of blade. (Default 1985) 

. NEUEFF=calculate new turbine efficiency due to coolind 
.(Defaults. FALSE.) 

.. For all other cases after sizind the bleed? you HUST set 
SPEC(9) of the bleed control to ZERO and CALBLD^. FALSE. 
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imEXi=Ji3feE=& 


INPUTS 


SPEC( 

1)= DATINP( 

1) = 

DATINP»( 

SPEC( 

2)= DATINP( 

2) = 

DATINP»( 

SPEC( 

3)= DATINP( 

3) = 

DATINPX 

8PEC( 

4)= DATINP( 

4) = 

DATINP»( 

SPEC( 

5)= DATINP( 

5) = 

DATINP»( 

SPEC( 

6)= thru 



SPEC(15)= 




1) -del P/P or Tab* ref # Hain 

2) -del P/P or Table ♦ Sec'd 

3) 'del T rise (^uess value) 

4) -effectiveness or Tab ref # 

5) ’-scale f on effectiveness 
-BLANK 

-BLANK 


OUTPUTS 


DATOUT(l) -della P/P aain flow 
DAT0UT(2) -delta P/P secondary flow 
DATOUTO) -BLANK 
DAT0UT(4) -effectiveness 
DAT0UT(5) -scale factor on effectiveness 
DAT0UT(6) -delta T calculated 
DAT0UT(7) -delta T/ (T hot- T cold) 

DAT0UT(8) -teaperalure rise difference( (Suess value/calc'd)-!) 
DAT0UT(9) -BLANK 


iSELIlcJIXEEHZ 


INPUTS 

SPEC( 1)= DATINP( 1)= DATINP*( l)-ba pass ratio 

(U bapass/W lain) 

SPEC( 2)= DATINP( 2)= DATINP*( 2)-del P/P lain streai 
SPECt 3)= DATINP( 3)= BATINP*( 3)-del P/P 2nd. streai 
ALL REST BLANK 


OUTPUTS 


DATOUT(l) -ba pass ratio 

DAT0UT(2) -della P/P in the priiara flow streai 
DAT0UT(3) -delta P/P in the secondara flow streai 
ALL REST BLANK 

UARNXN6S The prodrai expects each splitter to result in an 
extra nozzle or a mixer. If such is not the case* use a DUCT 
with SPEC=8*0» (bapass flow/ total flow) 



ililXSi=JIYeEs8 


INPUTS 


SPEC( 1)* DATINP( 1)= 

DATINPt( 

SPEC( 2)a DATINP( 2)= 

DATINP»< 

SPEC( 3)== DATINP< 3) = 

DATINP»( 

SPECt 4)= DATINP( 4)= »ATINP»( 
SPEC( 5)= DATINP( 5)= DATINP*( 

SPEC( 6)= thru 
SPEC<15)= 


-inlet ares of eain flow 
not needed if SPEC(3> is 
specified 

1) -inlet area of eain flow 
-inlet area of secondars 

not needed if SPEC(3) is 
specified 

2) -inlet ares of secondary 
-total to static pressure 

ratio at nain flow inlet 
if > 1» if < 1 = Hach ♦ 
(at desidn point) 

3) -total to static pressure 

ratio (calculated if both 
SPEC(l) I SPEC(7> diven 

4) -velocitw coefficient on 

Mixed flow velocity 
l=ideal»<i-less than id* 

5) -if=l total inlet area is 

held fixed as 2nd area 
varies* (see Note)* lf=0 
runs as before* 

-BLANK 

-BLANK 


Note* To sieulate a VABI set SPEC(S)=1* Then as you chande 
the secondary inlet area either throudh a control or OPTV 
the prieary ares will adjust to eaintain fixed total* The 
primary area may NOT be varied- it will be over-ridden* 


OUTPUTS 


DATOUT(l) 

DAT0UT(2) 

DAT0UT(3) 

DAT0UT(4) 

BAT0UT(5) 

DAT0UT(6) 

DAT0UT(7) 

DAT0UT(8) 

DAT0UT(9) 


-main flow area - in2 
-secondary flow ares - in2 

-total to static pressure ratio at main flow inlet 
-total to static pressure ratio at secondary flow 
-velocity at main flow inlet 
-velocity at secondary flow inlet 
-exit nixed flow velocity 
-static pressure difference between streams 
-total mixed to averade static pressure ratio 
inlet 
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iHQZZIzJIXEEsS 


INPUTS 


SPEC( 1)= DATINP( 


SPEC< 2)= DATINP( 
SPEC< 3)= DATINP< 
8PEC< 4)= DATIHP( 


SPEC( 5)= DATINPC 
SPEC( 6)= DATINP( 
SPEC( 7)= DATINP( 


SPEC( 8)= DATINP< 
SPEC( 9)= DATINP( 

SPEC(10)= thru 
SPEC(15)= 


1 ) = 

DATINP*( 
2>= DATINP*( 
Z)- DATINP»( 
A)= 

DATINPX 

5)= DATINP*< 
6>= DATINPX 
7)= DATINP»( 


8) = DATINP»( 

9) = DATINP»< 


-flow area (in2)r exit for 
conv»»throat for C-D nozz 

1) -calc* flow area at des*pt* 

2) -flow coeff* OP Tab* ref* ♦ 

3) -BLANK 

-nozz exit static pressure 
lb/in2 (if 0 see SPEC(9)) 

4) -nozz exit static pressure 
or coaponent no* (see 9) 

5) -Cvrvel* coeff or Tab t 

6) -switchf=0=conVf=l=C-D 

7) -area switchr=0 fix area to 

input valuer varw area 
to natch flow reeuired 
(see a) 

8) -BLANK 

9) -if SPEC(4)=0rset SPEC(9) 

to conponent f of inlet 
-BLANK 
-BLANK 


(a) When runnins duct or afterburnins casesr SPEC(7> is 
usuallw set = to 1 after a drs case has been run* Be 
sure to reset to 0 before a new dm case is attenpted* 


OUTPUTS 


DATOUT(l) -dross Jet thrust -lb 
DAT0UT(2) -actual Jet velocity -ft/sec 


DAT0UT(3) -total to static pressure ratio at throat 
DAT0UT(4) -nozzle exit area - in»2 
DAT0UT(5) -nozzle throat area -in»»2 
DAT0UT(6) -Cd - flow coefficient 
DAT0UT(7) -Cv - velocity coefficient 
DAT0UT(8) -critical pressure ratio at throat 
DAT0UT(9) -overall pressure ratio? inlet total to exit 
static 



iUlHJirJIXEEsS 


A reasonable aeproxiaation to water injector results is now 
available* Cp? Rt and Saaaa are changed as if the water was 
fuel* No aap chanses are built in* 


INPUTS 


SPEC( 1)= DATINP( 1)= DATINP*< 
SPEC< 2)= DATINP( 2)= DATINP*< 
SPEC( 3)= DATINP( 3)= DATINP*( 
SPEC( 4)= DATINP( 4)= DATINP»< 

SPEC( 5)= thru 
SPEC(15)= 


i)-w3ter / airflow ratio 
2}'-fraction vaporized 
3)-pressure drop 
4}-saturation switchr 

0=use SPEC(i) fl^isaturate 
-BLANK 
-BLANK 


OUTPUTS 


DATOUT(l) 

DAT0UT(2) 

DAT0UT(3) 

DAT0UT(4) 

DAT0UT(5) 

DAT0UT(6) 

DAT0UT(7) 

DAT0UT(8) 

DAT0UT(9) 


-actual water /air ratio 
-input value of fraction vaporized 
-saturation value of water / air 
-actual fraction vaporized 
-delta T 

-water flow rate in Ibs/hr 

-pressure drop 

-BLANK 

-BLANK 


NOTE! To turn ON the water inJectorr SPEC(i) MUST be 

non-zero* The input value of SPEC<1) will be used 
unless SPEC(4> is eoual to 1 in which case SPEC(l) 
will be over-ridden bs the saturation value* 


To turn OFF the water inJectorf set SPEC<1) to ZERO* 
Even thoush SPEC(4) aas be edual to 1 (saturation) 

NO water will be injected* 



lSUEIl=jnBE=ll 


INPUTS 

SPBC( 1)= DATINP< 1)= DATINP*( D-actual shaft rp» 

SPEC( 2)= DATINP( 2)= DATINPX 2)-aear ratio JMl component 

COOP* rpo/ shaft rpo 

SPEC( 3)= DATINP( 3)= DATINP*( 3)-aear ratio JH2 cooponent 
, COOP* rpo/ shaft rpo 

..SPEC( 4)= DATINP( 4)= DATINPt( 4)-3ear ratio JPl cooponent 

COOP* rPO/ shaft rpo 

SPEC( 5)= DATINP( 5)= DATINP*< 5)-3ear ratio JP2 cooponent 

COOP* rPo/ shaft rpo 

,SPEC< 6>= DATINP< 6)= DATINP»( 6)-oech* eff* JHl cooponent 

actual HP / ideal HP 

. SPEC< 7)= DATINP< 7)= DATINP»( 7)-oech. eff* JH2 cooponent 

actual HP / ideal HP 

SPECt 8)= DATINP< 8)= DATINP*( 8)-oech» eff* JPl cooponent 

actual HP / ideal HP 

SPEC( 9)= DATINP( 9)= DATINP»( 9)-oech* eff* JP2 cooponent 

actual HP / ideal HP 

SPEC<10)= thru -BLANK 

SPEC(15)= -BLANK 


OUTPUTS 


DATOUT(l) -net shaft horsepower (reouired-delivered) 

DAT0UT(2) -actual shaft rpo 

DAT0UT(3) -actual shaft rpo of JMl 

DAT0UT(4) -actual shaft rpo of JM2 

BAT0UT<5) -actual shaft rpo of JPl 

.DAT0UT(6) -actual shaft rpo JP2 

DAT0UT<7) -BLANK 

DATOUT(B) -net shaft horsepower / total horsepower 
DAT0UT(9) -BLANK 


NOTE* If one shaft is to be connected to another shaft in 
order to have oore than 4 cooponents on the saoe 
shaftf then* the LOUER cooponent nuober shaft oust 
be the FIRST cooponent of the HIGHER nuober shaft* 
At least one TURBINE oust be on the HIGHER nuober 
shaft* The control on horsepower balance oust vary 
the SHAFT SPEED of the LOUER nuober shaft to drive 
DAT0UT(8) of the HIGHER number shaft to ZERO! 


A 15 



iLQdDl=JIXeE=lQ 


INPUTS 


SPEC( 1)= DATINP( 1)= DATINPX l)-lo3d HP (negative) or 

Table reference nueber 
SPEC< 2)= DATINP( 2)= DATINP»( 2)-propeIler effic. or 0, 
SPEC( 3)= DATINP( 3)* DATINP»( 3)-thrust/8HP at 8LS 
ALL THE REST ARE BLANK 


Note - there are no JHl»JH2r JPlf JP2 nuebers on the KONFIG 
card» thus? K0NFIB<1»N)='L0AD' » 


OUTPUTS 


DATOUT(l) -load horsepower (negative) 
DAT0UT(2) -actual shaft rp» 

DAT0UT(3) -propeller thrust ** 

ALL THE REST ARE BLANK 


%t UARNINGt When the flidht velocity is zero»the eouation 
for propeller thrust becoees indetereinate and 
the thrust is set to zero* 



iCtlILi=JnEE=12 


As previously tentioned» the SPECIFICATION end K0NFI6 cards 
for controls differ fro» those of the other *coeponents* 

The configuration card readst 

K0NFIG(1»N) = 'CNTLS 

The specifications are read in as follows* 

SPCNTL ( 1 r N ) =N1 » N2 » NAME f N3 f N4 f VALUE » TOL f HINV r HAXV 


Where* 

Nl=the DATINP(Nl) of N2 which is to be varied 
N2=the cooponent nueber of the coeponent beins varied 
NAME='STAP' if station property <STATP) 

='D0UT' if DATOUT 
='PERF' if perforeance property 
N3=nusber of station property 
or DAT0UT(N3> 
or PERF0R(N3) 

N4=flow station nueber if 'STAP' 

=cosponent nueber if 'DOUT' 

=0 if 'PERF' 

VALUEsvalue to be achieved 

TQL=tolerance as fraction of valuer if =lr 
default value of *001 will be usedr 
(0.0005 if Optieizins) 
if = zeror control is turned off 
HINV=:itiniBUB allowable value - if zero isnored 
HAXV=BaxiBue allowable value - if zero iSnored 

For PERFOR or STATPr the followins Table applies 


N3 PERFOR 

1 total ensine airflow 

2 dross Jet thrust 

3 fuel flow 

A net Jet thrust 

5 TSFC 

.6 net thrust/airflow 

7 total inlet drad 

8 total brake shaft HP 

9 net thrust with 
installation drads 

10 net SFC 

11 inlet drad (lip + sp 

12 boattail drad 


STATP 

weidht flow 

total pressure 

total te«perature 

fuel to air ratio 

corrected flow H T/P 

Mach number 

static pressure 

interface corrected flow error 



You would read the SPCNTL card as follows* 

Uarw DATINP<N1) of coeeoneni N2 to eake either 

a) station propertw(N3) at flow station(N4) eoual to VALUE 
with tolerance T0L$ or 

b) 0AT0UT(N3) of co*ponent(N4) eoual to VALUE with tolerance 
tol; or 

c) Perforoance properts(N3) eoual to VALUE with tolerance TOL 

NOTES in the case of 'STAP' and 'DOUT' controls! H3 will usually 
=8 (flow interface error for STAP» 
static pressure difference in oixersr 
delta T error in HX's and net HP error in shafts) 

If TOL=0* the control is turned offr to turn it back on see 
below* SPCNTL input can ONLY be used at the DESIGN POINT* 
Off-desidn point data is read in with SPEC data as below* 


SPEC(1)= DATINP(1)= 


SPEC(2)= DATINP(2)= 
SPEC(3)= DATINP(3)= 
SPEC(4)= DATINP(4)= 
SPEC(5)a DATINP<5)= 
SPEC(6)= DATINP(6)= 
SPEC(7)= DATINP(7)= 
SPEC(8)= DATINP(8)= 
SPEC<9)= DATINP(9)= 


DATINP«(l)-fraction of VALUE used for 
oarchind (see HARCHIN6) 
DATINPt(2)-oinioua allowable value 
DATINPt(3)-oaxiouo allowable value 
DATINP»(4)-N1 
DATINP*(5)-VALUE 

DATINP»(6)-N3 if 'STAP" »otherwise BLANK 
DATINP*(7)-N3 if 'DOUT' f otherwise DLANK 
DATINP*(8)-N3 if 'PERF' f otherwise DLANK 
DATINP*(9)-T0L»if = 0» control inactive 
if value diven for T0L» then 
control is activated 


There is no DATOUT array for controls 



lQBIUI=JIXeEsl3 


The ability to optimize variables is now possible in NNEP* 

The fora of the K0NFI6 card for an 'OPTV' is as followst 

K0NFIG<lfN)='0PTV'»0»0»NC»0» 

where NC is the nueber of the component havinS the 
independent variable 

The specifications are read in as for noraal coaponents 
SPEC (1 ) =DATINP <1 ) -BLANK 

.SPEC(2)-DATINP(2)-aini«ua allowable value of the variable 

(if - 0» there is no ainiaua constraint) 
SPEC(3)=DATINP(3)-aaxiaua allowable value of the variable 

(if = Of there is no aaxiaua constraint) 
SPEC(4)=DATINP(4)-a value of 1 to 15 indicatinS which DATINP 
of coaponent NC is the independent 
variable 

SPEC(5 to 8)= DATINP(5 to 8)-BLANK 

SPEC(9)=DATINP(9)-switch to turn ON or OFF this variable 

If set=0f this variable is OFF 
If set-lf this variable is ON 


There is no DATOUT arras for optiaization variables 


There are additional inputs to NNEP when 'OPTV' coaponents 
are present* These are? 

TOLOPT - Criteria of converaence on DEPENDENT variable* 
Default value is 0*0002 

NJOPT - Coaponent nuaber which indicates the location 
of the dependent variable (if Of the dependent 
variable is not a DATOUT paraaeter) 

NVOPT - if NJOPT = 0 

>0=ain A value of 1 to 12 indicatinS which perforaance 
<0=B3X property is the dependent variable 

if NJOPT = 0 

A value of 1 to 9 indicatind which DATOUT of 
coaponent NJOPT is the dependent variable 

To turn off the optiaizationf NVOPT aust be set to 0 

As an example of the use of an 'OPTV'f let us assume that 
we have MARCHED to Mach 1*4 at 40000 feet and then throttled 
back to 50 percent F/Ma (see pase 19) 



Ue can now set SPEC(1»20)=1 to hold the F/Wa at the 
present value* If ue want to einieize the SFC holdind F/Ua 
constant and optiaizins TITf we would do the follouind* 

Assuee that coeponent S was the main burnerf and that ue 
have used only 20 coaponents* Ue would have created at 
the besinnind another coaponent as follows* 

KONFI6(lf21)='OPTUSO»Of5fOfSPEC(lf21)=OrOfOf4rO»OfOrOrO» 

Which saws that DATINP(4) (burner outlet T) of coaponent 5 
(the aain burner) is the independent variable* There is no 
ainiaua value or aaxiaua and since SPEC(9)=0 it is OFF 

Now we set SPEC(?t 21)=>1 and NV0PT=S to ainiaize SFC 
The max increaent in TIT would be = 50 dedrees in 1 step 


NOTE* A variable DEBUG is defaulted to zero* If you want to 
see each iteration of the optiaization on your OUTPUTf set 
DEBUG=l* 



lLUiUi=JI3tEEHld 


Limit Variables 


It is now possible to specifs minimum and maximum allowable 
values for any DAT0UT» STATION PROPERTY t or PERFORMANCE 
PROPERTY. 

This ability already exists for CONTROL and OPTIMIZATION 
variables <see 'CNTL' and 'OPTV') 

Now> when a limit has been exceededt a WARNING will be 
printed on the output sheet. 

If optimization is in effect? the criteria of merit will be 
penalized by a penalty function to drive you away from the 
boundary. 


The form of a 'LIMV' is as follows} 


KONFIG(lrN)='LIMV' 

The inputs at the DESIGN POINT are} 

SPLIMV(1)= BLANK 

SPLIMV(2)= minimum allowable value 
SPLIMV<3)= maximum allowable value 
SPLIMV(4)= 'DOUTS or 'STAPS or 'PERF' 

SPLIMV(5)= DATOUT No.» or Station Prop. No. or Perfor. No. 
SPLIMV(6)= Component No. or Station No. or BLANK 
SPLIMV(7)= BLANK 
SPLIMV(8)= BLANK 

SPLIMV(9)= On/Off switch? l=on? 0=off 


Off-desiSn use SPEC(2) to chanSe minimum value 
SPEC(3) to chanSe maximum value 
SPEC(9) to turn On and Off 



HABCUltlG 


A new feature has been added to NNEP» The best was to tell 
the user about it is to deaonstrate its use* 

I 

Let us suppose sou wish to aake a plot of F/Ua versus nozzle 
area at Hach l«4f 40000 feet* You could run the endine at 
l*4»40000f note what F/Ua is» and then use a control on 
nozzle area to drive F/Ua to various values » The dodwork of 
doind this has been eliainated as follows* 

Uhen sou confidure the endiner build in a control on nozzle 
area and F/Ua as follows - suppose coaponent 10 is the 
nozzle* and if coaponent 20 is the new control* 

K0NFIGa*20)='cntl'*sPcntl(l*20)=l*lC*'PERF'*6*0*ansv3lue*0 

which says - vary DATINP(l) (nozzle area) of coaponent(lO) 
(nozzle) so that perforaance property(6) (F/Ua) has a value 
of (doesn't aatter) with a tolerance of zero (turns OFF the 
control) 

Then run the endine up to 1*4*40000 feet* Now input the 
followind 

SPEC ( 1 * 20 ) =f 1 * SPEC ( 9 * 20 ) =T0L 
followed by 
ID lEND 


ID SEND 

Uhat this will do is detect froa SPEC(1*20) not eoual to 0* 
that you want to store the last value of PERF(6) in VALUE 
(the tardet answer) and will then set 

TARGET VALUE=fl * the present VALUE Thus* the present 
value of (F/Ua) is calculated by the prodraa* and DATINP(l) 
of coaPonent(lO) will now be used to drive PERF(6) (F/Ua) to 
the TARGET VALUE* Ue could at the saae tiae for instance 
have held thrust constant by puttind a control on TIT to 
aake thrust anythind and when we caae to 1*4*40000 set fl 
for this control*:!* 



I^BLE-Ddld.liieUIS 


Consider the TABLE DATA as 3 Dimensional? composed of a 
series of planes with each Plane assiSned a value called Z» 
Then? on each Z planer the Dependent Variable (ordinate 
axis)? F(X?Y?Z=Constant) is a 2 Dimensional Function of X? 
(absicca axis or column position) and Y (row position)* 

Each TABLE representing a sinSle Table Look-up has the 
followind INPUT DATA CARD Setup* 

Card 1 TABLE Reference Number (Integer? col 2-5) 

TABLE Identification Label? Col 6-75 

Card 2 Z-Identifier (4 Character Symbol? col 1-4) 

NZ-Number of Z values (Integer? col 687) 

Z-Variable values?7F10* ? Bedinnind in Column 11* If 
needed? extra cards follow 10X?7F10* Format* 

Z values MUST be in ascendind order? 

Card 3 Y-Identifier (4 Character Symbol? col 1-4) 

NY-Number of Y values (Inteder? col 687) 

Y-Variable values?7F10* ? Bedinnind in Column 11* If 
needed? extra cards follow 10X?7F10* Format* 

Y values MUST be in ascendind order* 

Card 4 X-Identifier (4 Character Symbol? col 1-4) 

NX-Number of X values (Inteder? col 687) 

X-Variable values?7F10* ? Bedinnind in Column 11* If 
needed? extra cards follow 10X?7F10* Format* 

X values MUST be in ascendind order* 

Card 5 F(X?Y?Z)-Identif ier (4 Character Symbol? col 1-4) 
NX-Number of X values (Inteder? col 687) 
F(X?Y?Z)-Variable values?7F10* ? Bedinnind in Column 
11* If needed? extra cards follow 10X?7F10* Format* 
These Values correspond to the values on , the X 
Identifier Card* 

Last Card 3 Character Symbol EOT in col 1-3 

The remainind cards follow the same basic format as the 
cards before* The first X and F(X?Y?Z) cards are for the 
first Y value in the first Z plane* This series of Card 4 8 
5 types is repeated for each Y value until the Y values in 
the first plane are exhausted* Followind this last F(X?Y?Z) 
identifier is a Y identifier card (type 3) with the next Y 
values for the second Z plane* This series is repeated for 
the remainind Z planes* In each plane where X variable 
values are not chandind? once defined? they need not be 
repeated* See example for a sample listind* 
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LIMITATIONS 

1) NZr NY» and NX aay not be blank or zero 

2) 30 TABLES Haxiaua 

3) NZi NY» and NX are liaitted to 100 or less 

4) A zero or blank table reference nunber will halt the 
read 

5) A storage overflow aessade will result if TABLE storage 
exceeds liaits set in TREAD Subroutine t 


SAMPLE MAP 


269 


TURBINE EFFICIENCY vs. 

PR» RPM. 

and BETA 


BETA 

2 

40. 

60. 




RPM 

3 

100. 

110. 

140. 



PR 

4 

1.1 

1.3 

1.4 

2.0 


EFF 

4 

0.8 

0.82 

0.82 

0.81 


PR 

3 

1.1 

1.8 

1.9 



EFF 

3 

0.8 

0.83 

0.82 



EFF 

3 

0.79 

0.82 

0.83 



RPM 

3 

100. 

110. 

140. 



PR 

5 

1.1 

1.3 

1.4 

2.0 

2.2 

EFF 

5 

0.8 

0.81 

0.815 

0.82 

0.81 

EFF 

5 

0.81 

0.81 

0.82 

0.84 

0.83 

EFF 

5 

0.83 

0.84 

0.85 

0.84 

0.83 


EOT 


Note: For Coaeressors- X=R» Y=N» Z=BETA» F<X»Y»Z)=MfPR»l ETA 
For Turbines - X=PR» Y=N» Z=BETA» F(X»YiZ)=M and ETA 



HlSCELL^tiEQUS 


IDONEd to 60) is an arras of switches tellind whether or 
not 3 coBPonent N has been desiSnedt ID0NE(N)=0 aeans N0» 

IDDNE(N)=1 keans YES» If a coneonent N is entered and the 
code detects that ID0NE<N)=0 theni the coneonent will be 
designed based on the conditions at that noment* This nas or 
■as not be what sou desire • Thus* if sou switch nodes and 
encounter a new nozzlei sou nas want to input ID0NE(N)=1 and 
3 value for the throat area for the nozzle » On the other 
handy if as in the exanple input case which followsy sou 
want to redesign the nain nozzle and desisn the new nozzle 
when sou do fron nixed to separate flow nodey sou can reset 
IDONE(N) for the nain nozzle to zero and both nozzles will 
be desidnedt How and when to use IDQNE as a tool will best 
cone from experience* 


Otbec-Euela-aod-Dissacialioo 

In order to run either other fuels and/or dissociationy two 
subroutines must be added. The firsty THERMy overrides the 
standard THERM in NNEP and calls TLAN which is a codind of 
the nethod developed at NASA Landles bs Mascitti 
(TN D-4747). 

Two new inputs are reouiredt 
C2HRAT-carbon to hsdroden ratio (bs atoms) 

(Default 0.5245035801 (JP4)) 

TFUEL-fuel temperature (Default 530. R) 


at NASA Lewis set NEULIB=NEWNNEP.LIB.DIS 
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APPENDIX B 

PROGRAM LISTING FOR KONFIG 

REAL HACK 

DIMENSION IU0RD(15)f K0NFI6<5»60) > SPECdSf 60) f SPCNTL(9i 60) r SPLl 
1HV(15»60) 

DATA IU0RD/4HINLT > 4HDUCT 1 4HUIN J r 4HC0NP r 4HTURD 1 4HHTEX r 4HSPLT » 4HNIXR 
1 f 4HN0ZZ » 4HL0AD 1 4HSHFT » 4HCNTL » 4H0PTV » 4HLIMV » 4H****/ 1 STAP » DOUT » PERF/ 
24HSTAP » 4HD0UT > 4HPERF/ » KD0NE/4HD0NE/ 

WRITE (30r800) 

DO 330 JCXalf60 

XM1=0 

XH2=0 

XM3=0 

DO 10 K=l»15 

IF <K.LT.6) KONFIG (K»JCX)=0 
IF (K.LT.12) SPCNTL(K»JCX)=0, 

SPLIMV(K»JCX)=0, 

10 SPEC(K»JCX)=0 

20 WRITE (30»810) JCX 

READ (35r820> JTOPE 
IF (JTOPE. EQ.KDONE) GO TO 340 
K0NFIG(1»JCX)=JT0PE 
ITT=15 

DO 30 IT=lfl5 

IF ( JTOPE. NE.IUORD(IT)) GO TO 30 
ITT=IT 

30 CONTINUE 

IF (ITT.LE.9) GO TO 40 
IF (ITT.LE.14) GO TO 210 
WRITE ( 30 f 580) JTOPE 
GO TO 20 

C PROCESS THIS COMPONENT 

40 WRITE (30r830) 

READ (35»840) (KONFIG( J» JCX) f J=2r5) 

C WHAT KIND OF COMPONENT IS THIS? 

60 TO (50f90»100»110»130»150»160»170»190)»ITT 
C INLET 

50 WRITE (30f850) 

READ ( 35 F 860 ) SPEC ( 1 f JCX ) f SPEC ( 5 f JCX ) f SPEC ( 9 f JCX ) f SPEC ( 6 f JCX ) f SPEC 
1(12fJCX) 

WRITE (30f870) 

READ (35f960) XM1fXM 2 
IF (XMl.NE.O.) SPEC(4 fJCX)=XM1 
IF (XM2.NE.0.) SPEC(6fJCX)=XM2 
60 DO 70 IJK=1f15 

KJI=16-IJK 

IF (SPEC(KJIfJCX).NE.O.) GO TO 80 
70 CONTINUE 

80 WRITE (6f880) JCXf(K0NFIG(JfJCX)fJ=1f5)fJCXf(SPEC(KfJCX)fK=1fKJI) 

WRITE (30f880) JCXf (K0NFIG( Jf JCX) f J=1 f5) f JCXf (SPEC<Kf JCX) fK=1fKJI) 
GO TO 330 

C COME HERE FOR DUCTS 
90 WRITE (30f890) 

READ (35f900) SPEC(1f JCX) fSPEC(2f JCX) fSPEC(4fJCX) fSPEC(5f JCX) fSPEC 
1(6fJCX> 

WRITE (30f910) 

READ (35f710) SPEC(8f JCX) fSPEC(9f JCX) fSPEC(10f JCX) 
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OOOOlOO 

0000200 

0000300 

0000400 

0000500 

0000600 

0000700 

0000800 

0000900 

0001000 

0001100 

0001200 

0001300 

0001400 

0001500 

0001600 

0001700 

0001800 

0001900 

0002000 

0002100 

0002200 

0002300 

0002400 

0002500 

0002600 

0002700 

0002800 

0002900 

0003000 

0003100 

0003200 

0003300 

0003400 

0003500 

0003600 

0003700 

0003800 

0003900 

0004000 

0004100 

0004200 

0004300 

0004400 

0004500 

0004600 

0004700 

0004800 

0004900 

0005000 

0005100 

0005200 

0005300 

0005400 

0005500 



WRITE (30»920) 0005600 

READ (35f960) XH1»XM2 0005700 

IF (XHl.NE.O.) SPEC(5»JCX)=XH1 0005800 

IF (XM2.NE.0.) SPEC('6»JCX)=XM2 0005900 

GO TO 60 0006000 

1. COME HERE FOR HATER INJECTORS 0006100 

100 WRITE <30f650) 0006200 

READ (35,660) IHON 0006300 

SPEC(1,JCX)=IH0N 0006400 

WRITE (30,670) 0006500 

READ (35,680) SPEC(2, JCX) ,SPEC(3, JCX) ,SPEC(4» JCX) 0006600 

IF (IW0N,EQ.1.AND,SPEC(4,JCX),EQ.0,) WRITE (30,690) 0006700 

IF (IHON, EQ.1,AND,SPEC(4, JCX). EQ,0,) READ (35,710) SPEC(1,JCX) 0006800 

GO TO 60 0006900 

C COME HERE FOR COMPRESSORS 0007000 

no WRITE (30,930) 0007100 

READ (35,940) SPECd, JCX), SPEC(2, JCX) ,SPEC(6, JCX) ,SPEC(8, JCX) , SPEC 0007200 
1(14, JCX) 0007300 

SPEC(12,JCX)=SPEC(6,JCX) 0007400 

SPEC( 13, JCX)=SPEC(8, JCX) 0007500 

DO 120 JJ=3,9,2 0007600 

120 SPEC( JJ, JCX)=1. 0007700 

WRITE (30,950) 0007800 

READ (35,960) XMl ,XM2,XM3,SPEC( 10, JCX) 0007900 

IF (XMl.NE.O.) SPEC(4,JCX)=XM1 0008000 

IF (XM2,NE.O.) SPEC(6,JCX)=XM2 0008100 

IF (XM3,NE,0.) SPEC(8,JCX)=XM3 0008200 

GO TO 60 000830C 

COME HERE FOR TURBINES 0008400 

13C WRITE (30,700) 0008500 

READ (35,710) SPEC( 1 , JCX) ,SPEC( 11 , JCX) ,SPEC( 12, JCX) ,SPEC(2, JCX) ,SP 0008600 
1EC(9,JCX) 0008700 

WRITE (30,720) 0008800 

READ (35,730) SPEC(14, JCX) ,SPEC(15, JCX) ,SPEC(13, JCX) 0008900 

WRITE (30,740) 0009000 

READ (35,750) XMl ,XM2,SPEC( 10, JCX) 0009100 

SPEC(8,JCX)=1. 0009200 


DO 140 J=3,7,2 0009300 

140 SPEC(J, JCX)=1, 0009400 

SPEC(4, JCX)=AMAX1(1.,XM1) 0009500 

SPEC(6,JCX)=AMAX1(SPEC(11,JCX),XM2) 0009600 

GO TO 60 0009700 

C COME HERE FOR HEAT EXCHANGERS 0009800 

150 WRITE (30,760) 0009900 

READ (35,710) SPEC( 1 , JCX) ,SPEC(2, JCX) ,SPEC(3, JCX) ,SPEC(4, JCX) 0010000 

WRITE (30,770) 0010100 

READ (35,960) XH1,XM2,XM3 0010200 

SPEC(5,JCX)=1. 0010300 

IF (XMl.NE.O.) SPECd, JCX)=XM1 0010400 

IF (XM2.NE.0.) SPEC(2,JCX)=XM2 0010500 

IF (XM3.NE.0.) SPEC(4,JCX)=XM3 0010600 

IF (XM3.EQ.0.) GO TO 60 0010700 

WRITE (30,780) 0010800 

READ (35,900) SPEC(5,JCX) 0010900 

GO TO 60 0011000 
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C COME HERE FOR SPLITTERS 
160 WRITE (30»790) 

READ (35r710) SPEC(1 » JCX) »SPEC(2» JCX) »SPEC(3» JCX) 

GO TO 60 

C COME HERE IF MIXER 

170 WRITE <30 » 590) 

READ (35»440) SPECO.JCX) 

IF (SPEC<3fJCX).NE.O.) GO TO 180 
WRITE (30f600) 

READ (35f440) SPEC<1» JCX) rSPEC(2f JCX) 

180 WRITE (30r610) 

READ (35»470) SPEC<4» JCX) »SPEC(5» JCX) 

GO TO 60 

C COME HERE IF NOZZLE 

190 WRITE <30r620) 

READ (35»710) SPEC(2» JCX) fSPEC(5i JCX) »SPEC(9» JCX) 

WRITE <30»410) 

READ (35»900) SPEC<6t JCX) »SPEC<7f JCX) rSTATIC 
IF (STATIC. EQ.O.) GO TO 200 
WRITE (30»630) 

READ (35»710) SPEC(4fJCX) 

SPEC(9»JCX)=0. 

200 WRITE (30f640) 

READ (35»960) XM1»XM2 
IF (XMl.NE.O.) SPEC(2»JCX)=XM1 
IF (XM2.NE.0.) SPEC(5f JCX)=XM2 
GO TO 60 

C COME HERE FOR LOADSr SHAFTS^ CONTROLS» OPTVS» AND LIMVS 
210 IG0=ITT-9 

GO TO (220»230f240f280,290)»IGO 
C COME HERE FOR LOADS 
220 WRITE (30»420) 

READ (35»440) SPEC(lfJCX) 

WRITE (30f430) 

READ (35»440) SPEC(2f JCX) »SPEC(3» JCX) 

60 TO 60 

C COME HERE FOR SHAFT 

230 WRITE (30»450) 

READ (35»840) <K0NFI6(K» JCX) »K=2i 5) 

WRITE (30»460) 

READ <35»470) (SPEC(Kf JCX) »K=1»5) 

WRITE <30»480) 

READ (35»900) (SPEC(K. JCX) »K=6»9) 

GO TO 60 

C COME HERE FOR CONTROLS 

240 WRITE (30f490) 

READ (35r820) AWORO 
SPCNTL(3»JCX)=AW0RD 
IF (AWORD.NE.STAP) GO TO 250 
WRITE (30r500) 

READ (35f510) SPCNTL(4» JCX) » SPCNTL(5i JCX) 

GO TO 270 

250 IF (AWORD.NE.DOUT) GO TO 260 
WRITE (30»520) 

READ (35»510) SPCNTL(4» JCX) »SPCNTL(5» JCX) 
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oomoo 

0011200 

0011300 

0011400 

0011500 

0011600 

0011700 

0011800 

0011900 

0012000 

0012100 

0012200 

0012300 

0012400. 

0012500 

0012600 

0012700 

0012800 

0012900 

0013000 

0013100 

0013200 

0013300 

0013400 

0013500 

0013600 

0013700 

0013800 

0013900 

0014000 

0014100 

0014200 

0014300 

0014400 

0014500 

0014600 

0014700 

0014800 

0014900 

0015000 

0015100 

0015200 

0015300 

0015400 

0015500 

0015600 

0015700 

0015800 

0015900 

0016000 

0016100 

0016200 

0016300 

0016400 

0016500 



2^0 

270 


C 

280 


C 

290 


100 


310 

, 1?0 


330 

1^0 


C 

c 

350 

360 

370 

380 

390 

400 


60 TO 270 0016600 

WRITE (30,530) 0016700 

READ (35,510) SPCNTL(4, JCX) 0016800 

WRITE (30,540) 0016900 

READ (35,440) SPCNTL(6, JCX) ,SPCNTL(7, JCX) 0017000 

WRITE (30,550) 0017100 

READ (35,510) SPCNTL ( 1 , JCX) ,SPCNTL(2, JCX) 0017200 

WRITE (30,560) 001730< 

READ (35,440) SPCNTL(8, JCX) ,SPCNTL(9, JCX) 0017400 

WRITE (30,570) JCX, JCX, (SPCNTKK, JCX) ,K=1,9) 001750C 

WRITE (6,570) JCX, JCX, (SPCNTL(K, JCX) ,K=1,9) 0017600 

GO TO 330 0017700 

COME HERE FOR OPTIMIZATION VARIABLE 0017800 

WRITE (30,350) 0017900 

READ (35,510) SPEC(4, JCX) ,XKON 0018000 

K0NFIG(3,JCX)=XK0N 0018100 

WRITE (30,360) 0018200 

READ (35,370) SPEC(9, JCX) ,SPEC(2, JCX) ,8PEC(3, JCX) 0018300 

60 TO 60 0018400 

COME HERE FOR LIMIT VARIABLE 0018500 

WRITE (30,380) 0018600 

READ (35,820) AWORD 0018700 

SPLIMV(4,JCX)=AWQRD 0018800 

IF ( AWORD. NE.STAP) GO TO 300 0018900 

WRITE (30,500) 0019000 

READ (35,510) SPLIMV(5, JCX) ,SPLIMV(6, JCX) 0019100 

GO TO 320 0019200 

IF (AWORD. NE. BOUT) GO TO 310 0019300 

WRITE (30,520) 0019400 

READ (35,510) SPLIMV(5, JCX) ,SPLIMV(6, JCX) 0019500 

GO TO 320 0019600 

WRITE (30,530) 0019700 

READ (35,510) SPLIMV(5, JCX) 0019800 

WRITE (30,390) . 0019900 

READ (35,370) SPLIMV(9, JCX) ,SPLIMV(2, JCX) ,SPLIMV(3, JCX) 0020000 

WRITE (30,400) JCX, (KONFIG(K, JCX) ,K=1,5) , JCX, (SPLIMV(KK, JCX) ,KK=1, 0020100 
19) 002020C 

WRITE (6,400) JCX,(K0NFIG(K,JCX),K=1,5),JCX,(SPLIMV(KK,JCX),KK=1,9 002030C- 
1) 0020400 


60 TO 330 
CONTINUE 
CONTINUE 
STOP 


0020500 

0020600 

0020700 

0020800 


002090-' 

0021000 


0021100 

FORMAT (' OPTV- ENTER SPEC NO. FREE TO VARY AND COMPONENT NO. OF C 0021200 

lOMPONENT' HAVING THE INDEPENDENT VARIABLE'/' ') 0021300 

FORMAT (' ENTER 1. TO TURN ON OPTV, 0.=OFF, MIN VALUE AND MAX VALU 0021400 
IE ALLOWED'/' ON MINIMUM MAXIMUM') 0021500 

FORMAT (F3.0,2F8.0) 0021600 

FORMAT (' LIMV- ENTER WHETHER STAP, DOUT, OR PERF'/' ') 0021700 

FORMAT (' ENTER 1. TO TURN ON LIMV, 0.=0FF, MIN VALUE AND MAX VALU 0021800 
IE ALLOWED'/' ON MINIMUM MAXIMUM') 0021900 


FORMAT (' K0NFIG(1,',I2,')=4H',A4,4(I2,1H,),'SPLIMV(1,',I2,')=',F3 002200v 
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410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 . 
640 

650 

660 

670 

680 

690 

700 

710 


1. 0» IHrf 2(610. 4flHf)rA4f5(F3. Or IHf)) 0022100 

FORMAT (' MUST SET SUITCHES- (SUCH1=0. ffOR CONV,r=l. FOR CD NOZZ)' 0022200 
1/'(SUCH2=0. FIXED AREAr=l. FLOAT AREA) (SUCH3=1 .-SPECIFY EXIT STAT 0022300 
2IC PV' SUCHl SWCH2 SUCH3') 0022400 

FORMAT (' ENTER LOAD HORSEPOWER (NEGATIVE) OR MAP NO.'/' _' 0022500 

1) 0022600' 

FORMAT (' IF PROPELLORf ENTER EFFICIENCY AND F/SHP 8 SLS'/' 002270() 

1_^ ') 0022800 

FORMAT (2F8.0) 0022900 

FORMAT (' SHFT- ENTER AS INTEGERS r THE COMPONENT NUMBERS OF THOSE 0023000 
ICOMPONENTS CONNECTED TO THIS SHAFT'/' FROM FRONT TO REAR OF ENGINE 0023100 

2'/' ') 0023200 

FORMAT (' ENTER SHAFT RPM AND THE GEAR RATIO FOR EACH COMPONENT'/' 0023300 

1 ') 0023400 

FORMAT (F7.0r4F5.0) 0023500 

FORMAT (' ENTER MECH. EFF. FOR EACH COMPONENT (ACTUAL/IDEAL HP)'/' 0023600 

1 :__') 0023700 

FORMAT (' CNTL- ENTER WHETHER 'ERROR* IS STAPr DOUTr OR PERF'/' - 0023800 

1 ') 0023900 

FORMAT (' ENTER NO. OF STATION PROPERTY AND FLOW STATION NUMBER'/' 0024000 

1 ') 0024100 

FORMAT (2F3.0) 0024200 

FORMAT (' ENTER NO, OF DATOUT PROPERTY AND COMPONENT NUMBER FOR WH 0024300 

IICH THIS PROPERTY APPLIES'/' ') 0024400 

FORMAT (' ENTER NO. OF PERFORMANCE PROPERTY'/' __') 0024500 

FORMAT (' ENTER VALUE TO BE ACHIEVED AND TOLERANCE'/' 0024600 

!____') . 0024700 

FORMAT (' ENTER SPEC NO. FREE TO VARY AND THE COMPONENT NO. OF COM 0024800 

IPONENT BEING VARIED'/' ') 0024900 

FORMAT (' ENTER (IF DESIRED) NON ZERO MINIMUM AND MAXIMUM VALUES F 0025000 
lOR THE FREE VARIABLE JUST ENTERED'/' MINIMUM MAXIMUM') 0025100 

FORMAT (' K0NFIG(lr'rI2r')=4HCNTLrSPCNTL(lr'rI2r')='r2(G10.4»lH»)» 0025200 
l'4H'»A4rlHrG10,4rlHr/lXr5(G10.4rlHr)) 0025300 

FORMAT (' ILLEGAL COMPONENT NAME' rA6r 'RE-DO THIS COMPONENT') 0025400 

FORMAT (' MIXR- ENTER TOTAL TO STATIC PRESSURE RATI0Ol.)0R MACH N 0025500 

10, (<1.) FOR MAIN FLOW INLETr OR 0.'/' ') 0025600 

FORMAT (' ENTER INLET AREAS OF MAIN AND SECONDARY FLOWS'/' 0025700 

1 ') 0025800 

FORMAT (' ENTER VELOCITY COEFFICIENT AND SET VABI=1. IF DESIRED'/' 0025900 
1 VCOEFF VABI') 0026000 

FORMAT (' NOZZ- ENTER FLOW COEFFr VEL COEFFr COMP. NO. OF INLET'/' 0026100 
1 FCQEFF VCOEFF INLET#') 0026200 

FORMAT (' ENTER NOZZ STATIC PRESSURE AT EXIT'/' STATIC') 0026300 

FORMAT (' ENTER NAP NOS. IF USING MAPS FOR CF AND CV'/' CFMP CVMP 0026400 

1') 0026500 

FORMAT (' WINJ- IF YOU WANT HATER ON NOW- ENTER 1 OTHERWISE 0'/' 0026600 

1-') 0026700 

FORMAT (12) 0026800 

FORMAT (' ENTER FRACTION OF H20 VAPORIZEDr PRESSURE DROPr AND SATU 0026900 

IRATION SWITCH (0 OR 1)'/' ') 0027000 

FORMAT (2F6.0rF2.0) 0027100 

FORMAT (' ENTER UATER/AIRFLOW RATIO'/' ') 0027200 

FORMAT (' TURB- ENTER PRATIOrEFFr CORR SPEEDi X BLEED INrZ OF BLEE 0027300 

ID INTO FRONT'/' ') 0027400 

FORMAT (5F7.0) 0027500 
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750 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

EOF 


FORMAT (' ENTER FACTOR FOR COOLING TYPE» NUMBER OF STAGES » AND HOR 0027600 

ISEPOWER SPLIT (USUALLY=1) '/' ') 0027700 

FORMAT (F9.0»2F4,0) 0027800 

FORMAT (' IF USING MAPS ENTER NOS. AND 3D ARC VALUE)'/' MMAP EMAP 0027900 
1 3DMALUE') 0028000 

FORMAT (2F5.0»F8,0) 0028100 

FORMAT (' HTEX- ENTER DELP PRIM.* DELP SEC.* DELTA T GUESS* EFFECT 0028200 

IIVENESS'/' ') 0028300 

FORMAT (' IF USING MAPS ENTER MAP NOS, FOR DELPP*DELPS*EFF'/' DEL 0028400 
IP DELS EFFC') 0028500 

FORMAT r ENTER SCALE FACTOR ON EFFECTIVENESS HAP (USUALLY-1) '/' 0028600 

1 ') 0028700 

FORMAT <' SPLT-ENTER BYPASS RATIO* DELTA P MAIN* DELTA P SEC.'/' 0028800 

1 ') 0028900 

FORMAT ('IWHEN ENTERING DATA YOU MUST RIGHT ADJUST OR USE DECIMAL 0029000 


IPOINTS') 

FORMAT (' ENTER TYPE FOR COMPONENT' *14* ' * IF FINISHED ENTER DONE'/ 
1 ' ') 

FORMAT (1X*A4) 

FORMAT (' ENTER UPSTREAM AND DOWNSTREAM STATION NUMBERS OR ZEROS ( 
IAS INTEGERS)'/' ') 

FORMAT (413) 

FORMAT (' INLET-ENTER INLET WT FLOW*MACH NO.* ALT.* RECOV* AND DEL 
ITA T'/' ') 

FORMAT (F8.0*F6.0*3F7.0) 

FORMAT (' IF USING MAPS FOR INLET- ENTER HAP NOS. OR ZEROS'/' DRA 
IG ETAR') 

FORMAT (' K0NF1G(1*'I2*')=4H'*A4*1H*4(I2*1H*)*'SPEC(1*'*I2*')='*5< 
1G10.4*1H*)/1X*10(G10.4*1H*)) 

FORMAT (' DUCT- ENTER DELP* MACH* CET* ETA*8 HVFUEL'/' 

1 ') 

FORMAT (4F6.0*F7,0) 

FORMAT (' IS THERE BLEED FLOW IN OR OUT OR AIR NOT HEATED?- ENTER 
1 AS FRACTIONS'/' ') 

FORMAT (' IF MAPS FOR BURNER EFF, OR FUEL HV- ENTER NOS.'/' EMAP 
IHMAP') 

FORMAT (' COMP-ENTER R VALUE* BLEED FRACTION* EFF* PRATIO* CORR.SP 
lEED'/' ') 

FORMAT (3F6.0*F7.0*F8.0) 

FORMAT (' IF USING MAPS ENTER NOS, AND 3D ARG VALUE'/' WMAP EMAP 
IPMAP 3DVALUE') 

FORMAT (3F5.0*F8.0) 


0029100 

0029200 

0029300 

0029400 

0029500 

0029600 

0029700 

0029800 

0029900 

0030000 

0030100 

0030200 

0030300 

0030400 

0030500 

0030600 

0030700 

0030800 

0030900 

0031000 

0031100 

0031200 

0031300 

0031400 

0031500 

0031600 

0031700 


END 


0031800 
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APPENDIX C 


SAMPLE CASE TERMINAL LISTING FOR KONFIG 


WCN ENTERING DATA YOU MUST RIGHT ADJUST OR USE DECIMAL POINTS 
ENTER TYPE FOR COMPONENT li IF FINISHED ENTER DONE 


init 

ENTER UPSTREAM AND DOUNSTREAM STATION NUMBERS OR ZEROS (AS INTEGERS) 


01 00 02 00 

INLET-ENTER INLET NT FLOMiMACH NO.i ALT*i RECOVi AND DELTA T 


100. .8 35000. .98 14. 

IF USING MAPS FOR INLET- ENTER MAP NOS. OR ZEROS 
DRAG ETAR 

0 . 0 . 

KONFIGdf 1)=4HI)1T> 1» 0» 2f OfSPECdi 1)= 100.0 fO.DOOO >0.0000 >0.0000 

0.9800 >0.0000 >0.0000 >0.3S00E 05>0.0000 >0.0000 > 14.00 > 

ENTER TYPE FOR COMPONENT 2> IF FINISHED ENTER DONE 


COIP 

ENTER UPSTREAM AND DOUNSTREAM STATION NUMBERS OR ZEROS (AS INTEGERS) 


02 00 03 05 

COMP-ENTER R VALUE. BLEED FRACTION. EFF. PRATIO> CORR.SPEED 


1.6 .05 .88 10. 100. 

IF USING HAPS ENTER NOS. AND 3D ARG VALUE 
UMAP EHAP PHAP 3DVALUE 

1001 1002 1003 0. 

K0NFI6d> 2)=4HC0HP> 2> 0> 3> 5>SPECd> 2)= 1.600 >0.S000E-01> l.OOO > 1001. 

1002. > 1.000 > 1003. > 1.000 >0.0000 >0.0000 >0.8800 > 10.00 

ENTER TYPE FOR COMPONENT 3> IF FINISHED ENTER DONE 


duct 

ENTER UPSTREAM AND DOUNSTREAM STATION NUMBERS OR ZEROS (AS INTEGERS) 


03 00 04 00 

DUCT- ENTER DELPr MACH> CET> ETA>1 HVFUEL 


.05 .3 2560. .99 18500 

IS THERE BLEED aOU IN OR OUT OR AIR NOT HEATED?- ENTER AS FRACTIONS 


0 . 0 . 0 . 

IF HAPS FOR BURNER EFF. (JR FUEL HV- ENTER NOS. 
EHAP HHAP 

Cl 


>0.8000 > 


> 1.000 > 

> 100.0 > 



0 , 0 . 

K0NFI6(1> 3)=4HDUCTi 3i 0> 4f OiSPECdi 3)=O.S000E<OiiO.3OO0 tO.OOOO f 2560. >0.9900 > 

0.1850E 05> 

ENTER TYPE FOR COMPONENT 4. IF FINISHED ENTER DONE 


turb 

ENTER UPSTREAM AND DOWNSTREAM STATION NUMBERS OR ZEROS (AS INTE6ERS) 


04 05 06 00 

TURB- ENTER PRATIO.EFF. CORR SPEED. Z BLEED IN.Z OF BLEED INTO FRONT 


2.6 .90 1.0 1. .5 

ENTER FACTOR FOR COOLING TYPE. NUMBER OF STAGES. AND HORSEPOWER SPLIT (USUALLY=1) 


0 . 1 , 1 , 

IF USING MAPS ENTER NOS. AND 3D AR6 VALUE) 

HMAP EMAP 3DVALUE 

1007 1008 1. 

KONFIGd. 4)=4HTURB. 4. 5. 6. O.SPECd. 4)= 2.600 . 1.000 > 1.000 . 1007. . 1.000 . 

1008. . 1.000 . 1.000 .0.5000 . 1.000 .0.9000 . 1.000 . 1.000 .0.0000 

ENTER TYPE FOR COMPONENT 5. IF FINISHED ENTER DONE 


nozz 

ENTER UPSTREAM AND DOWNSTREAM STATION NUMBERS OR ZEROS (AS INTEGERS) 


06 00 07 00 

NOZZ- ENTER FLOW COEFF. VEL COEFF. COW. NO. OF INLET 
FCOEFF VCOEFF INLET# 

.98 .98 1. 

MUST SET SWITCHES- (SWCH1=0. FOR C0NV..=1. FOR CD NOZZ) 

SHCH2=0. FIXED AREA.=1. FLOAT AREA) (SWCH3=1. -SPECIFY EXIT STATIC P 
SWCHl SWCH2 SWCH3 

1 . 0 . 0 . 

ENTER HAP NOS. IF USING MAPS FOR CF AND CV 
CFHP CVHP 

0 . 0 . 

KONFIGd. 5)MHN0ZZ. 6. 0. 7. O.SPECd. 5)=0.0000 .0.9800 .0.0000 .0.0000 .0.9800 . 

1.000 >0.0000 .0.0000 .1.000 . 

ENTER TYPE FOR COMPONENT 6. IF FINISffiD ENTER DONE 


. 1.000 


C2 



shfl 

SHFT- ENTER AS INTEGERSf THE COMPONENT NUMBERS OF THOSE COMPONENTS CONNECTED TO THIS SHAFT 
FROM FRONT TO REAR OF ENGINE 


.02 04 07 00 

ENTER SHAn RPH AND THE GEAR RATIO FOR EACH COMPONENT 


8000. 1. 1. 1. 0. 

ENTER MECH. EFF. FOR EACH COMPONENT (ACTUAL/IDEAL HP) 


1 . 1 . 1 . 1 . 

K0NFI6(1> 6)MHSHFT> 2i 4f 7f OiSPECdi 8000. » 1.000 > 1.000 f 1.000 *0.0000 

1.000 f 1.000 * 1.000 I 1.000 » 

ENTER TYPE FOR COMPONENT 7> IF FINISHED ENTER DONE 


load 

ENTER LOAD HORSEPOUER (NEGATIVE) OR HAP NO. 


- 100 , 

IF PROPELLORf ENTER EFICIENCY AMD F/SHP 8 SLS 


0 . 0 . 

KONFlGd* 7)=4HL0ADf 0* 0> 0* OrSPECdr 7)=-100.0 * 

ENTER TYPE FOR COMPONENT 8» IF FINISHED ENTER DONE 


cntl 

CNTL- ENTER NHETHER 'ERROR' IS STAP* DOUT* OR PERF 


slap 

ENTER NO. OF STATION PROPERTY AND FLOW STATION NUMBER 


08 06 

ENTER VALUE TO BE ACHIEVED AND TOLERANCE 


0. .001 

ENTER SPEC NO. FREE TO VARY AND THE COMPONENT NO. OF COMPONENT BEING VARIED 


01 04 

ENTER (IF DESIRED) NON ZERO MINIMUM AND MAXIMUM VALUES FOR THE FREE VARIABLE JUST ENTERED 
MINIMUM MAXIMUM 

0 . 0 . 


C3 



KQNFIGdi 8)=4H(m>SPCNTL(li 8)= 1.000 r 4.000 t4HSTAP> 8.000 i 

&.000 >0.0000 i 0.1000 E -02>0.0000 >0.0000 > 

ENTER TYPE FOR COHPONENT 9> IF FINISHED ENTER DONE 


cnll 

CNTL- ENTER WHETHER 'ERROR* IS STftP> DOUTi OR PERF 


St3P 

ENTER NO. OF STATION PROPERTY AND FLOW STATION NUNBER 


08 04 

ENTER VALUE TO BE ACHIEVED AND TOLERANCE 


0. .001 

ENTER SPEC NO. FREE TO VARY AND THE COMPONENT NO. OF COMPONENT BEIN6 VARIED 


01 02 

ENTER (IF DESIRED) NON ZERO MINIMUM AND MAXIMUM VALUES FOR THE FREE VARIABLE JUST ENTERED 
MINIMUM MAXIMUM 


1.2 2.6 

K0NFIG(1> 9)=4HCNTL>SPCNTL(1> 9)= 1.000 > 2.000 »4HSTAP> 8.000 > 

4.000 >0.0000 >0.1000E-02> 1.200 > 2.600 > 

ENTER TYPE FOR COMPONENT 10> IF FINISHED ENTER DONE 


cntl 

CNTL- ENTER WHETHER 'ERROR' IS STAP> DQUT> OR PERF 


slap 

ENTER HO. OF STATION PROPERTY AND FLOW STATION NUMBER 


08 02 

ENTER VALUE TO BE ACHIEVED AND TOLERANCE 


0. ,001 

ENTER SPEC NO. FREE TO VARY AND THE COHPONENT NO. OF COMPONENT BEING VARIED 


01 01 

ENTER (IF DESIRED) NON ZERO MINIMUM AND MAXIMUM VALUES FDR THE FREE VARIABLE JUST ENTERED 
MINIMUM MAXIMUM 

0 . 0 . 

K0NFIG(1>10)=4HCNTL>SPCNTL(1>10)= 1.000 > 1.000 >4HSTAP> 8.000 > 

2.000 >0.0000 f0.1000E-02>0.0000 >0.0000 > 

ENTER TYPE FOR COMPONENT 11> IF FINISHED ENTER DONE 


C4 



cntl 

CNTL- ENTER UHETHER ‘ERROR* IS STAPi DOUTi OR PERF 


dout 

ENTER NO. OF DATOUT PROPERTY AND COMPONENT NUMBER FOR IMICH THIS PROPERH APPLIES 


08 06 

ENTER (/ALUE TO BE ACHte AND TOLERANCE 


0. .001 

ENTER SPEC NO. FREE TO VARY AND THE COMPONENT NO. OF COMPONENT BEING VARIED 


01 06 

ENTER (IF DESIRED) NON ZERO MINIMUM AND MAXIMUM VALUES FOR THE FREE VARIABLE JUST ENTERED 
MINIMUM MAXIMUM 

0 . 10000 . 

K0NFIG(l>ll)=4HCNTLfSPCNTL(l>ll}= 1.000 t 6.000 lAHDOUTr B.OOO > 

6.000 >0.0000 fO.1000E-02fO.0000 fO.lOOOE 05> 

ENTER TYPE FOR COMPONENT 12> IF FINISHED ENTER DONE 


oplv 

OPTV- ENTER SPEC NO. FREE TO VARY AND COMPONENT NO. OF COMPOJENT HAVING THE INDEPENDENT VARIABLE 


04 03 

ENTER 1. TO TURN ON OPTV> 0.=(»^Ff MIN VALUE AND MAX VALUE ALLOWED 
ON MINIMUM MAXIMUM 

0.. 2160. 2760. 

K0NFIG(lfl2)=4H0PTVf Of 3r 0> 0fSPEC(lfl2)=0.0000 > 2160. > 2760. > 4.000 > 

ENTER TYPE FOR COMPONENT 13> IF FINISHED ENTER mS. 



K0NFIG(l>l)=4HINLTilr0t2fOtSPEC(lfl)=lOO.Ot0»f0.t0.>0.8000» 

0*9800f 0» rOt »0»3S00E05>0« »0*fl4«00f 

KONFI6(l»2)=4HCOHPf2»0»3fSfSPEC(l>2)sl.600fO»5000E-01 tl.0fl001.fi. Of 
1002.fl.0fl003.fl.0f0.f0.f0.8800fl0.00fl00.0f 

KONFIG(lf3)=4HDUCTf3fOf4fOfSPEC(lf3}»0.5000E-01f0.3000f0.f2S60.f0.9900f 

O.lSSOEOSf 

KONFIG(lf4}MHTURBf4t5f6f0fSPEC(lf4)-2.6OOfl.0fl.Ofl0O7.fl.Of 
1008. f 1. Of 1. Of 0. SOOOf 1. Of 0.9000fl. Ofl.OfO.fi. Of 
K0NFIG(lfS}=4HN0ZZf6f0f7f0fSPEC(lf5)=0.f0.9800f0.f0.f0.9800f 
1 .Of 0. f 0. t l.Of 

K0NFIG(lf6)=4HSHFTf2f4f7f0fSPEC(lf6)»8000.fl.0fl.0fl.0f0.f 

l.Ofl.Ofl.Ofl.Of 

KQNFIG(lf7)=4HL0ADf0f0f0f0fSPEC(lf7)=-100.0f 
K0NFIG(lf8)=4HCNTLfSPCNTL(lf8)=1.0f4.0f4HSTAPf8.0f 
6.0f 0. f0.1000E-*02f0. fO. f 

K0NFI6(lf9)=4HCNTLfSPCNTL<lf9)=1.0f2.0f4HSTAPf8.0f 

4.0f0.f0.1000E-02fl.200f2.600f 

KONFIG(lflO)=4HCNTLfSPCNTL(lflO)=1.0fl.Of4HSTAPf8.0f 

2.0f0.f0.1000E-02f0.f0.f 

KONFIG(lfll)=4HCNTLfSPCNTL<lfll)=1.0f6.0f4HDOUTf8.0f 

6.0f0.f0.1000E-02f0.f0.1000EOSf 

K0NFIG<lfl2)=4H0PTVf0f3f0f0fSPEC(lfl2)=0.f2160.f2760.f4.0f 


konfig-component input cards images 



APPENDIX D 

PROGRAM LISTING FOR REKONFIG 


10 


20 


30 


40 


IMPLICIT REAL*8 (A-H»0-Z) 

REAL t8HACH»IIrJJ»KKrLLtHHfNN 

COHHON /DBL/ DATINP(lSr60) »DAT0UT(9>60) »UTF(40) > TORRES < 40 ) fTOTEHP( 
140 ) » FAR ( 40 ) f CORFLO < 40 ) i VHACH ( 40 ) 1 8TATP ( 40 > t ERROR ( 40 ) t TOL » TOLT f TOLT 
2T I DEPV ( 20 ) t DTOL < 20 ) r PERPF ( 20 ) * C2HRAT f STCR AT » TFUEL 
COHHON /8NGL/ JMl » JM2 1 JPl i JP2 » JCX »LOCTBL ( 9 1 AO > t JCOMP ( 70 ) » I UAY i N IT , 
lITAB(70)fJC0NF<A0»4)»JTYPE<A0)»JFL0ll(70)»IDEDAP{15>»KKIND8a4»25)» 
2NC0HPrN08TATfNITERfNFiNI8fNPA8S»JCC»NtBL»NCT8>JCINDt20)tJCDEP(20)» 

3 JCUINB ( 20 ) I JCVOEP ( 20 ) » KOTYP ( 20 ) r IDONE ( AO ) 

DIMENSION UIP0UT(40)f SPCNTUllirAO)? SPEC8V(9)r SPLIHV(15»A0) 
DIHENSIOH ICAHP(IO) 

LOGICAL BOALLvDOTHlS 


DIMENSION IU0RD(14)f SPECS(15»A0) » K0NFIG(5»A0) » SPEC(15»A0) 
LOGICAL TABLES » LONG » PUNT » AMAC » LABEL » P INPUT » SPILL » BO AT » INLTDS i DRAM 
EQUIVALENCE (UIPOUT»WTF) t (SPEC»8PECS»DATINP»SPLIMV) 

NAMELIST / D/NCODE » NCOMP » MOST AT f IMAY » ITPRT » KONFIG » SPECS » NMODES i MOD 
lEfENDIT»ID0NE»M0DE8N»SPEC»TABLESrL0NG»PUNT»AMAC»LABEL»SPCNTL»PINPU 
2T t AMINDS ? BLMAX r SIZINL i SPLDES ? SPILL » BOAT » INLTDS t NVOPT » N JOPT » TOLOPT » 
3DRAU f NCASE » MACH t ALTP r ETAR t CALBLD f ELIFE » SPLIMV t SEPD AT r DEBUG » C2HR AT » 
4TFUEL f NEUEFF f YEARV f YEARB 


DATA ENDITfMODESV/O.DOfO/fTABLES/,TRUE,/fSPCNTL/AAO»O.DO/ 

DATA LABEL/»FALSE./fITPRT/0/fNMODES/1/fM0DESN/1/fPINPUT/.TRUE./ 
DATA IM0RD/4HINLT f 4HDUCT f 4HUIN J f 4HC0MP f 4HTURB f 4HHTEX f 4HSPLT f 4HMI XR 
1 F 4HN0ZZ F 4HL0AD f 4HSHFT f 4HCNTL f 4H0PTV f 4HL IMV7 f ST AP f DOUT f PERF/4HST AP . 
24HD0UT F 4HPERF/ F DR AH/ . FALSE » / 

DATA AAfBBfCCfDDfEEfFFfGGfHHfIIfJJfKKfLLfMMfNNfPPfQQfRRfTT/IHAfIHB 
iFlHCFlHDFlHEFlHFFlHBFlHHFlHlFlHJFlHKFlHLFlHMFlHMFlHPFlHQFlHRflHT/ 
READ (9f280) IDEDAP 
HRITE (10f280) IDEDAP 
PINPUT-.TRUE. 

CALL NAMEPR <9f10f8fPINPUT) 

DO 10 J:>1f10 
ICAMP(J)»0 
READ {8fD> 

DO 20 J=1f17A0 

DATINP(Jf1)»0.D0 

NMADES^NMODES 

DO 230 K«1fNHADES 

AU0RD°0 

DO 30 I«1f300 

K0NFIG(If1)«0 

PINPUT=,FALSE. 

CALL NAMEPR <9f10f8fPINPUT) 

READ (8fD) 

DOALL=, FALSE. 

MRITE (30f240) 

READ (35f2S0) ICAMP 
IF (ICAMP(l)»EQ.O) DOALL=.TRUE. 

WRITE (10f290) MODE 
DO 220 JCX=1f60 

IF (KONFIG(IfJCX).EQ.O) GO TO 220 
ITT=15 

DO 40 J=1f14 

IF (K0NFIG(1fJCX).EQ.IH0RD(J).0R.K0NFIG(1fJCX).EQ,J) ITT=J 
CONTINUE 


D1 


OOOOlOO 

0000200 

0000300 

0000400 

0000500 

0000600 

0000700 

0000800 

0000900 

0001000 

0001100 

0001200 

0001300 

0001400 

0001500 

0001600 

0001700 

0001800 

0001900 

0002000 

0002100 

0002200 

0002300 

0002400 

0002500 

0002600 

0002700 

0002800 

0002900 

0003000 

0003100 

0003200 

0003300 

0003400 

0003500 

0003600 

0003700 

0003800 

0003900 

0004000 

0004100 

0004200 

0004300 

0004400 

0004500 

0004600 

0004700 

0004800 

0004900 

0005000 

0005100 

0005200 

0005300 

0005400 

0005500 



DOTHIS=DOALL 0005600 

IF (DOALL) 60 TO 60 0005700 

DO 50 ICTslflO 0005800 

IF (JCX.EQ»ICAMP(ICT)) DOTHIS=.TRUE, 0005900 

50 CONTINUE 0006000 

60 CONTINUE 0006100 

IF (,NOT»DOTHIS) 60 TO 190 0006200 

IF (ITT.EQ.15) STOP 001 0006300 

IF (AUORD.EQ»QQ) 60 TO 190 0006400 

WRITE <30f260) JCXi IWORD(ITT) 0006500 

60 TO (70»80*90»100»110»120»130»140»150rl60fl70»190fl90»190)»ITT 0006600 

70 WRITE <30»350) <SPEC<I»JCX)»I*1»12) 0006700 

WRITE <30»340) 0006800 

60 TO 180 0006900 

80 WRITE (30»360) SPEC<l»JCX)»SPEC(2f JCX)»(SPEC(I»JCX)»I=4»10) 0007000 

WRITE (30»340) 0007100 

60 TO 180 0007200 

?0 WRITE (30»370) (SPEC<I» JCX) »I=1»4) 0007300 

WRITE (30».340) 0007400 

60 TO 180 0007500 

100 WRITE (30»380) (SPEC(I» JCX) »I=lf 14) 0007600 

WRITE (30»340> 0007700 

60 TO 180 0007800 

110 WRITE (30»390) (SPEC(I» JCX) »I=1»15) 0007900 

WRITE <30»340) 0008000 

60 TO 180 0008100 

120 WRITE (30»400)(SPEC(I»JCX)»I=1»5) 0008200 

WRITE (30»340) 0008300 

GO TO 180 0008400 

130 WRITE <30»410) (SPEC(I» JCX) il=l»3) 0008500 

WRITE (30>340) 0008600 

60 TO 180 0008700 

140 WRITE (30»420) (SPEC(I»JCX)»I=1»5) 0008800 

WRITE (30»340) 0008900 

GO TO 180 0009000 

150 WRITE (30»430) SPECdi JCX) fSPEC(2» JCX) t (SPEC(I» JCX) f I=4»7) »SPEC(9» 0009100 

IJCX) 0009200 

WRITE (30»340) 0009300 


GO TO 180 0009400 

160 WRITE (30»440) (SPEC(I» JCX) f I=l»3) 0009500 

WRITE (30*340) 0009600 

GO TO 180 0009700 

170 WRITE (30*450) (SPEC(I*JCX)*I=1*9) 0009800 

WRITE (30*340) 0009900 

180 READ (35*270) AWORDjVALUE 0010000 

IF (AWORD*EQ,AA) SPECd * JCX)=VALUE 0010100 

IF (AWORDtEQ.BB) SPEC(2* JCX)»VALUE 0010200 

IF (AWORD.EQ.CC) SPEC(3» JCX)=VALUE 0010300 

IF (AWORD.EQ.DD) SPEC(4* JCX)=VALUE 0010400 

IF (AWORD.EQ.EE) SPEC(5* JCX)=VALUE 0010500 

IF (AWORD.EQ.FF) SPEC(6* JCX)=VALUE 0010600 

IF (AWORD.EQ.GG) SPEC(7» JCX)=VALUE 0010700 

IF (AWORD.EQ.HH) SPEC(8* JCX)=VALUE 0010800 

IF (AWORD.EQ.II) SPEC(9* JCX)=VALUE 0010900 

IF (AWORD.EQ.JJ) SPECdO* JCX)=VALUE 0011000 
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IF (AUORD.EQ.KK) 8PEC<llf JCX)»VALUE 0011100 

IF (AUORD»EQ»LL) SPEC (12 rJCX) -VALUE 0011200 

IF <AWORD.EQ*HN) SPEC (13rJCX>- VALUE 0011300 

IF (AWORO^EQ.NN) 8PEC<14»JCX)-VALUE 0011400 

IF (AUORD*EQ.PP) SPECdS# JCXl-VALUE OOllSOO 

IF (AUORO*EQ.RR) 80 TO (70r80r90rl00rll0»120rl30rl40rlS0rl60f 170rl 0011600 

190»190»190)fITT 0011700 

IF (AWORD«EQ.TT) 60 TO 190 0011800 

IF (AUORO.EQ.QO) 80 TO 190 0011900 

80 TO 180 0012000 

190 DO 200 IJK-lflS 0012100 

KJI-i6>IJK 0012200 

IF <8PEC<KJIrJCX)iNE*0») 80 TO 210 0012300 

200 CONTINUE 0012400 

210 IF (ITT»LE.ll) WRITE (10»330) JCXi (K0NFI8(I» JCX) r I-l»5) t JCX» (8PEC( 0012500 

lKLfJCX)fKL«lfKJI) 0012600 

IF (ITT. EQ. 12) WRITE (10»320) JCX»JCX»(SPCNTL(I»JCX) »I»1»9) 0012700 

IF (ITT.EQ.13) WRITE (10.330) JCX. (KONFIGd r JCX) .1-1 .5) . JCX. (8PEC( 0012800 
1KL.JCX)»KL«1>9) 0012900 

IF (ITT.EQ.14) WRITE (10.310) JCX.(K0NFIG(I.JCX).1-1.5).JCX.(8PLIH 0013000 

1V(KL.JCX)»KL-1.9) 0013100 

220 CONTINUE 0013200 

IF (AWORD.EQ.QQ) WRITE (10.300) 0013300 

230 CONTINUE 0013400 

PINPUT-.TRUE. 0013500 

DO 235 LAST-1. 100 0013600 

235 CALL NAHEPR (9.10.8.PINPUT) 0013700 

STOP 002 0013800 

C 0013900 

C 0014000 

C 0014100 

240 FORMAT (' ENTER AS INTEGERS. THE COMPONENTS YOU WISH TO CHANGE SPE 0014200 
ICS FORV' IF YOU WISH TO STEP THROUGH THE ENTIRE ENGINE- JUST HIT 0014300 

2RETURM'/" d 0014400 

250 FORMAT (1013) 0014500 

260 FORMAT ('OCQMPONENT N0.dI3.^ IS A dA4/'0T0 CHANGE A VALUE. ENTER 0014600 

1 IN COLUMN 1 THE INDEX LETTER FOLLOWED BY NEW VALUE (ANYWHERE BUT 0014700 

2 NEED DECIMAL POINT) V^OINDEX VALUE DEFINITION') 0014800 

270 FORMAT (Al. 640.0) 0014900 

280 FORMAT (15A4) 0015000 

290 FORMAT (' ID MODE-'. 12) 0015100 

300 FORMAT (' lEND') 0015200 

310 FORMAT (' KONFIGd. ' .12. ' )»4H' rA4.4(I2. 1H» ) » 'SPLIMVd. ' . 12. ' ) = ' .F3 0015300 

1.0.1H..2(610.4.1H.).A4.5(F3.0.1H.)) 0015400 

320 FORMAT (' K0NFI0d»'»I2.')=4HCNTL»SPCNTLd»'.I2.')-'»2(G10.4,lH.>. 0015500 

l'4H'.A4.1H.6i0.4.1H./lX.S(010.4.1H.)) 0015600 

330 FORMAT (' KONFIGd. d2» ' )»4H' .A4.1H.4(I2.1H. )» 'SPECd. ' .12. ')-' »5( 0015700 
1G10.4.1H>)/1X.10(G10.4.1H.)) 0015800 

340 FORMAT (4H R .14X.' REVIEW ALL VALUES'/4H T .14X.' TERMINATE-G 0015900 
10 ON TO NEXT C0MP0NENT'/4H 0 .14X.' QUIT-END OF PROCESSING FOR E 0016000 
2NTIRE ENGINE') 0016100 

350 FORMAT (4H A .814.5.' INLET HEIGHT FL0H'/4H B .614.5.' FREE ST 0016200 
IREAM TEMP.'/4H C .614.5.' FREE STREAM PRESS. '/4H D .614.5.' IN 0016300 
2LET DRAG TABLE N0.'/4H E .G14.5.' MACH NUMBER'/4H F .814.5.' I 0016400 

3NLET RECOV. OR TABLE N0.'/4H G .G14.5.' MAX FLOW ON RECOV TABLE' 0016500 
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4/4H H f614»5»' SCALE F ON FLOU IN TABLEV4H I »G14.5»' ALTITUD 

5EV4H J fG14.5f' F/A AT INLET V4H K »G14«5»' IF NON ZERO»I=GEO 

6P0TENTIAL ALT.V4H L »614,5t' DEL T-NON STD. DAY') 

360 FORMAT (4H A »G14.5»' DEL P/P OR TABLE N0.V4H B »G14.5»' DESI 

IGN DUCT MACH *'/4H D »G14,5»' BURNER OUTLET TEMP,'/4H E »G14.5» 
2' EFF. OR TABLE N0.'/4H F fG14.5»' FUEL HV'/4H G »G14.5f' CRO 
3SS SECT. AREA'/4H H »G14.5»' INLET BLEED FLOU/TOT. BLEED FL0«'/4 
4H I »G14.5f' EXIT BLEED FLOU/TOT. BLEED FL0U'/4H J iG14.5i' FR 
5ACT. OF AIR NOT HEATED') 

370 FORMAT (4H A »G14.5,' WATER/AIR FLOU RATI0'/4H B fG14.5i' FRAC 

ITION VAP0RIZED'/4H C .G14.5»' PRESSURE DR0P'/4H D »G14.5,' SAT 
2URATI0N SUITCH (=1)') 

380 FORMAT (4H A fG14.5»' R VALUE'/4H B »G14.5i' BLEED FLOU FRACTI 
10N'/4H C »G14.5»' SCALE F ON C0RR.SPEED'/4H D »G14.5»' CORR AI 
2RFL0U OR TABLE N0.'/4H E »G14.5»' SCALE F ON CORR AIRFL0U'/4H F 

3 »G14.5>' EFF. OR TABLE N0.'/4H G »614.5»' SCALE F ON EFF.'/4H 

4 H »G14.5»' PRATIO OR MAP N0.'/4H I »G14.5»' SCALE F ON PRATIO' 
5/4H J rG14.5»' 3D MAP Z VALUE'/4H K »G14.5»' FRACT. BLEED HP L 
60SS'/4H L,»G14.5»' EFFICIENCY'/4H M iG14.5»' PRATI0'/4H N »G1 
74.5»' CORRECTED SPEED') 

390 FORMAT (4H A »G14.5»' PRESSURE RATI0'/4H B »G14.5»' TOT BLEED 
IIN/TOT BLEED AVAILABLE '/4H C ,G14.5»' SCALE F ON CORR. SPEED'/4H 

2 D »G14.5»' CORR. FLOU TABLE N0.'/4H E »G14.5>' SCALE F ON COR 
3R. FL0W'/4H F »G14.5»' EFFICIENCY TABLE N0.'/4H G »G14.5»' SCA 
4LE F ON EFFICIEHCY'/4H H »G14.5»' SCALE F ON PRESSURE RATIO 
5'/4H I ,G14.5»' BLEED AT ENTRANCE/TOT BLEED IN'/4H J fG14.5r' 
63D ARG ON MAP'/4H K fG14.5»' EFFICIENCY '/4H L »G14.5»' CORRECT 
7ED SPEED'/4H H »614,5»' HORSEPOUER SPLIT'/4H N jG14.5j' FACTOR 
8 FOR COOLING TYPE'/4H P »G14.5»' NUMBER OF STAGES') 

400 FORMAT (4H A »614.5»' DEL P/P OR TAB. REF NO. OF MAIN (HEATED) F 
1L0U'/4H B »G14.5»' DEL P/P OR TAB. REF NO. OF SEC. (COOLED) FLOW 
2'/4H C »614.5»' DELTA T (GUESSED VALUE) '/4H D >G14.5»' EFFECTI 
3VENESS OR TAB. REF. N0.'/4H E »G14.5»' SCALE F ON EFFECTIVENESS' 
4) 

4i0 FORMAT (4H A *G14.5f' BYPASS RATIO (BYPASS/MAIN) '/4H B fG14.5»' 
1 DEL P/P MAIN STREAM'/4H C iG14.5,' DEL P/P SECD. STREAM') 

420 FORMAT (4H A »G14.5f' INLET AREA MAIN FLOW (NO ITEM C)'/4H B »G 
114. 5»' INLET AREA SECD FLOW (NO ITEM C)'/4H C »G14.5>' TOT. TO 
2STATIC PRATIO OR MACH N0.'/4H D »G14.5»' VEL. COEFF. ON MIXED FL 
30U VEL0CITY'/4H E »G14.5r' VABI SWITCH-IF=1 TOT AREA FIXED ALWAY 
4S') 

430 FORMAT (4H A .G14.5.' AREA-EXIT CONV.»THROAT CD'/4H B iG14.5f' 

1 FLOU COEFF OR TAB REF N0.'/4H D »G14.5»' NOZZLE EXIT STATIC P'/ 
24H E »G14.5»' VELOCITY COEFF. OR TAB. REF. N0.'/4H F »G14.5f' 
3SWITCH-(0=C0NV OR 1=C-D> N0ZZLE'/4H G »G14.5f' AREA SUITCH-(0=FI 
4X AREA OR 1=FL0AT AREA)'/4H I »G14.5»' IF ITEM D=0. SET = INLET 
5C0MP0NENT NO.') 

440 FORMAT (4H A »G14.5»' LOAD HP (NEG.) OR TAB. REF. N0.'/4H B »G1 
14. 5f' PROPELLER EFFICIENCY'/4H C »G14.5»' THRUST/SHP AT SLS') 
450 FORMAT (4H A .G14.5»' SHAFT RPM'/4H B »G14.5>' GEAR RATIO JMl' 
1/4H C >G14.5»' GEAR RATIO JM2'/4H D »G14.5.' GEAR RATIO JPl'/4 
2H E »G14.5»' GEAR RATIO JP2'/4H F »G14.5»' MECH. EFF. JM1'/4H 

3 G »G14.5,' MECH. EFF. JM2'/4H H >G14.5»' MECH. EFF. JP1'/4H I 

4 rG14.5.' MECH. EFF. JP2') 

END 


0016600 

0016700 

0016800 

0016900 

0017000 

0017100 

0017200 

0017300 

0017400 

0017500 

0017600 

0017700 

0017800 

0017900 

0018000 

0018100 

0018200 

0018300 

0018400 

0018500 

0018600 

0018700 

0018800 

0018900 

0019000 

0019100 

0019200 

0019300 

0019400 

0019500 

0019600 

0019700 

0019800 

0019900 

0020000 

0020100 

0020200 

0020300 

0020400 

0020500 

0020600 

0020700 

0020800 

0020900 

0021000 

0021100 

0021200 

0021300 

0021400 

0021500 

0021600 

0021700 

0021800 

0021900 

0022000 


D4 




SUBROUTINE NAHEPR (INyNOUTfNREAOfPINPUT) 


0022100 


INTE6ERB2 A(120) f AHP/lHX/f E/lHE/rD/lHD/ 


0022200 


LOGICAL PINPUT 


0022300 

c 

THIS ROUTINE WRITES NANELIST CARD IMAGES ON 'NOUT' 

FROM UNIT 

'IN' 0022400 

c 



0022500 


REWIND NREAD ^ 


0022600 

10 

READ (INrSOfENDMO) A 


0022700 


IF <PINPUT) WRITE (N0UT»50) A 


0022800 


WRITE (NREADrSO> A 


0022900 


DO 20 1=1 f 120 


0023000 


IF (A(I).EQ.AHP.AND*A(I+l).EQ.E.AND*A(Ii3)*EQ.D) 60 

TO 30 

0023100 

20 

CONTINUE 


0023200 


60 TO 10 


0023300 

30 

REWIND NREAD 


0023400 


RETURN 


0023500 

40 

STOP 00003 


0023600 

C 



0023700 

C 



0023800 

SO 

FORMAT (120A1) 


0023900 


END 


0024000 


EOF 
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APPENDIX E 


SAMPLE CASE TERMINAL LISTING FOR REKONPIG 

rnX'NTIG SAMPLE. SEFFLOTFr^ClZ.COJlPOHTS 

EflTFR fiS ItflEPiRSf TI^E CC:JC.”E!ITS mil WISH TO CHANGE SPECS FOR 

IF YOU WISH TO STEP Ti;riGU5H THE EHTIRE ENGINE- JUST HIT RETURN 


01 03 

COHPONEHT HO. 1 IS A IHLT 

TO CHANGE A VALUE* ENTER IN COLU.HN 1 THE INDEX LETTER FOLLOO BY NEW VALUE (ANYWHERE BUT 


INDEX 

VALUE 

rEFIHITION 

A 

100.00 

INLET I'EIGHT FLOW 

D 

0.00000 

FREE STREAM TEMP. 

C 

0.00000 

FREE STREAtl PRESS. 

D 

0.00000 

INLET CRAG TABLE l!0. 

E 

0.00000 

HACl! irJMIER 

F 

0.00000 

INLET RECOV. OR TABLE HO, 

0 

0.00000 

MAX FLOS OH RECOV TABLE 

II 

0.00000 

SCALE F ON FLOW IN TABLE 

I 

0.00000 

ALTITUDE 

J 

0.00000 

F/A AT IHLET 

K 

0.00000 

IF HON ZERO»I=GEOPOTENTIAL ALT. 

L 

18,000 

Da T-HOH STD. DAY 

R 


REVIEW ALL VALUES 

T 


TERillNATE-GO OH TO NEXT COMPONENT 

0 


OUIT-CND OF PROCESSING FOR EHTIRE 


A 80. 


, T 

COMPONENT HO. 5 IS A DUCT 


TO CHANGE A VALUE, 

ENTER IN COLUMN 1 THE INDEX LETTER FOLLOWED BY NEW VALUE (ANYWHERE BUT 

IHDEX 

VALUE 

DEFINITION 

A 

0.50000D-01 

PEL P/P OR TABLE HQ, 

B 

0.30000 

EESIGN DUCT MACH i 

D 

3000.0 

BURNER OUTLET TEMP. 

E 

0,99000 

EFF, OR TABLE HO. 

F 

18300. 

FUEL HV 

8 

0,00000 

CROSS SECT. AREA 

H 

0.00000 

INLET BLEED FLOW/TOT. BLEED aOW 

I 

0,00000 

EXIT BLEED FLCW/TOT. BLEED FLOW 

J 

0.50000D-01 

FRACT. OF AIR HOT HEATED 

R 


REVIEW ALL VALUES 

T 


TERIilNATE-GO ON TO NEXT COMPONENT 

Q 


QUIT-END OF PROCESSING FOR EHTIRE ENGINE 


B 2300. 


Q 

.. TERMINATED? STOP 00003 

2',:;:le.eefflotf has ieen used to create some.componts 

GO? 

El 


NEED DECIMAL POINT) 


NEED DECIISAL POINT) 



SANPLE SEPARATE FLOW TURBOFAN 
JD DRAW=T»TABLES=T»PINPUT=T SEND 
SD HOOE=1 

KONFlG(l>i)=4HlNLTfliO»2tO»SPEC(lil)=8O.00»O.fO*iO.f0.> 

0« rO« f Ot lO* f 0« rOt > 18»00f 

KONFIG<1^2)=4HCOHPf2fOi3»0»SPEC(lf2)=1.500»0*»l*0»1001*fl.O» 

1002. > 1*0» 1003* fl*0f0.r0.f0.8S00r3.0»l«0i 

KONFI6(l»3)=4H8PLT»3»0»4»10fSPECa»3)=1.0»0.2000D-01f0.2000D-01» 
KONFIG<lf4)=4HCOMP»4»0»5fl3»SPEC(l»4)=1.300»0.5000D-01»1.0»1004.»1.0f 
1005 * f 1 * 0 » 1006 * f 1 * 0 f 0 * f 0 0 * 8600 f 6 * 0 > 1 * 0 > 

KONFIB<lf5)=4HDUCT»5»0»6»OfSPEC(l»5)=0.5000D-01»0,3000»0.i2800.»0.9900» 

0.183000Sr0.r0.f0.r0.5000D-01f 

KONFIGd »6)=4HTURB»6»13»7»0fSPEC(l»6)=3.500»0.7500»1.0» 1007. » 1.0, 
1008.rl.0rl.0r0.8000d*0f0.?000»5000.d.0f 

KONFIG(lr7)=4HTURB»7fl3»8fOrSPEC(lf7)=2.500»0,2500»1.0»1009.rl.O» 

1010.fl.0rl*0rl.0rl.0f0*9000r5000.fl.0r 

K0NFIG(lr8}=4HN0ZZf8r0f9r0rSPEC(lr8>=0.f0.9800r0.r0.f0.9750> 

1 *OrO. f 0. r 1 .Of 

K0NFIG(lf9)=4HDUCTfl0rOfllfOfSPEC(lf9)=0.3000D-01f 
KONFIG(lflO)=4HNOZZfllfOrl2fOfSPEC(lrlO)=0.f0.9800r0.f0.f0.9800f 
1 .OrO* f 0* f 1 .Of 

K0NFI6 ( 1 f 1 1 ) MHLOAD f 0 f 0 f 0 f 0 f SPEC ( 1 f 1 1 ) =-200 . 0 f 
K0NFIG(lfl2)=4HSHFTf4f6fllfOfSPEC<lfl2)=8000.fl.0fl.0fl.0f0.f 
1 .Of 1 .Of 1 .Of 

K0NFIG(lfl3>=4HSHFTf2f7fOfOfSPEC(lfl3)=6000.fl.0fl.OfO.f0.f 

I. Ofl.Of 

K0NFIB<lfl4)=4HCNTLfSPCNTL{lfl4)=1.0f7.0f4HSTAPf8.0f 

8.0f0.f0.1000D-02f0.f0.f 

KONFIG < 1 f 15 ) =4HCNTL t SPCNTL( 1 fl5)=l. 0.6.0 . 4HSTAP . 8 . 0 f 
7.0f0* f0.1000D-02f0* lO. f 

K0NFIG(lfl6)=4HCNTLfSPCNTL(lfl6)=1.0f4.0f4HSTAPfB.0f 

6.0f0.f0.1000D-02fl.l00fl.7SOf 

K0NFIG(lfl7)=4HCNTLfSPCNTL(lfl7)=1.0f3,0f4HSTAPf8.0f 

II. 00f0.f0.1000D-02f0.f0.f 

KONFIG { 1 f 1 8 ) =4HCNTL f SPCNTL (lfl8)=1.0f2.0f4HSTAPf8.0f 
4.0f0.f0.1000D-02fl.lOOf2.100f 

K0NFIG(lfl9)=4HCNTLfSPCNTLafl9)=1.0fl.Of4HSTAPf8.Of 
2.0f0* f 0. 10000-02 fO.fO.f 

KONFIG ( 1.20) =4HCNTL . SPCNTL < 1 . 20 ) =1 . 0 . 12 . 00 . 4HD0UT .8.0. 
12.00f0.i0.1000D-02f0.f0.f 

K0NFIG(lf21)=4HCNTL.SPCNTL(lf21)=1.0fl3.00.4HD0UTf8.0f 
13.00.0. f0.1000D-02f0.f0.f 
SEND 

SD ALTP=5000fMACH=.3 SEND 


REKONFIG-CHANGE TUG CGHPONENTS 


E2 



REKONFIG SAI!PLE.SEPFLOTF»ALL.CO«PONTS 
DfTER AS niTEGERSi THE COfiPO.’INTS YOU WISH TO CHAKGE SPECS FOR 
IF YOU BISH TO STEP THROUGH THE ENTIRE ENGINE- JUST HIT RETURN 


COMPONENT NO. 1 IS A IHLT 

TO CHANGE A VALUE, ENTER IN COLUMN 1 THE INDEX LETTER FOLLOUED BY HEU VALUE (ANYWOE BUT NEED DECIMAL POINT) 


INDEX 

VALUE 

DEFINITIO?! 

A 

lOO.CO 

INLET HEIGfIT FLOW 

B 

0.00000 

FREE STREi'iii TEMP, 

C 

0.00000 

FREE STREAM PRESS. 

D 

0.00000 

INLET DRAG TABLE NO. 

E 

0.00000 

MACH NUMBER 

F 

0.00000 

INLET RECOV. CR TABLE NO. 

0 

0.00000 

m FLOU ON RECOV TABLE 

H 

0.00000 

SCALE F ON FLOU IN TABLE 

I 

0.00000 

ALTITUDE 

J 

0.00000 

I7A AT INLET 

K 

0.00000 

IF NON ZERO,I=GEOPOTEHTIAL ALT. 

L 

18.000 

DEL T-NON STD. DAY 

R 


kEVIEU ALL VALUES 

T 


TEPJ1INATE-G0 ON TO NEXT COMPOfOlT 

0 


GUIT-END OF PROCESSING FOR ENTIRE ENGINE 


A 80. 
F .97 


R 


A 

80.000 

INLET HEIGHT FLOW 

6 

0.00000 

FREE STREAM TEMP, 

C 

0.00000 

FREE STREAM PRESS. 

D 

0.00000 

INLET DRAG TABLE HO. 

E 

0.00000 

MACH NUMBER 

F 

0.97000 

INLET RECOV. OR TABLE NO. 

6 

0.00000 

MAX FLOa Oil RECOV TABLE 

H 

0.00000 

SCALE F OH FLGU IN TABLE 

I 

0.00000 

ALTITUDE 

J 

0.00000 

F/A AT IllET 

K 

0.00000 

IF HON ZERO,I=GEOPOTENTIAL ALT. 

L 

18.000 

BEL T-KOH STD. DAY 

R 


REVIEW ALL VALUES 

T 


TERMINATE-GO ON TO NEXT COMPONENT 

Q 


QUIT-END OF PROCESSING FOR ENTIRE DJGINE 


'i 


E3 



COMPONENT NO. 2 IS A COMP 

TO aw A VALUEt ENTER IN COLUMN 1 THE INDEX LETTER FOLlOUED BY NEH VALUE (ANYWHERE BUT NEED DECIMAL POINT) 


INDEX 

. VALUE 

DEFINITION 

A 

1.5000 . 

R VALUE 

B 

0.00000 

BLEED FLOW FRACTION 

C 

1.0000 

SCALE F ON CORR.SPEED 

D 

1001.0 

CORN AIRaOH OR TABLE NO. 

E 

1.0000 

SCALE F ON CORR AIRFLOW 

F 

1002.0 

EFF. OR TABLE NO. 

G 

1.0000 

SCALE F ON EFF. 

H 

1003.0 

PRATIO OR HAP NO. 

I 

1.0000 

SCALE F ON PRATIO 

J 

0.00000 

3D HAP Z VALUE 

K 

0.00000 

TRACT. BLEED HP LOSS 

L 

o.esooo 

EFFICIOJCY 

N 

3.0000 

PRATIO 

N 

1.0000 

CORRECTED SPaO 

R 


REVIEW Aa VALUES 

T 


TERNIKATE-GO ON TO NEXT COMPONENT 

Q 


QUIT-END OF PROCESSING FOR ENTIRE ENGINE 

L,.^ 



M2.9S 



T 


COMPONENT HO. 3 IS A SPLT 

TO CHANGE A VALUEi ENTER IN COLUMN 1 THE INDEX LETTER FOaOUED BY NEH VALUE (ANYWHERE BUT NEED DECIMAL POINT) 


INDEX VALUE 
A 1.0000 
B 0.20000D-01 
C 0.20000D-01 
R 

T ' 

.0 


DEFINITION 

BYPASS RATIO (BYPASS/MAIN) 

Da P/P MAIN STREAM 

Da P/P SECD. STREAM 

REVIEW AU VALUES 

TERMIHATE-GO OH TO NEXT COMPONENT 

QUIT-END OF PROCESSING FOR ENTIRE ENGINE 



COlirOHENT HO. 4 IS A COHP 


TO CHANGE A VALUEi ENTER IN COLUHN 1 THE INDEX LETTER FOLLOHED BY NEV VALUE (AHYUKERE BUT NEED DECIMAL POINT) 


INDEX 

VALUE 

DEFINITION 

A 

1.3000 

R VALUE 

B 

O.50000D-0I 

FLEED FLOa FRACTION 

C 

1.0000 

SCALE F OH CC'RR.SPEED 

D 

1004.0 

CDRR AIRFLCa OR TAFLE NO. 

E 

1.0000 

SCALE F OH CORK AIRROW 

F 

1005.0 

EFF. OR TABLE HO. 

G 

1.0000 

SCALE F OH EFF, 

II 

1006.0 

FRATIO OR MAP NO. 

I 

1.0000 

SCAiE F ON PRATIO 

J 

0.00000 

3D MAP Z VALUE 

K 

o.ocooo 

FRAXT. BLEED HP LOSS 

L 

0.86000 

EFFICIENCY 

H 

6.0000 

PRATIO 

N 

1.0000 

CORRECTED SPEED 

R 


REVIEW ALL VALUES 

T 


TERHINATE-GO Oil TO NEXT COMPOl.'ENT 

Q 


OUIT-eiD OF PROCESSING FOR ENTIRE ENGINE 


i .87 


K 6.2 

N .985 

i" 

COH^OJOT NO, 5 IS A DUCT 

TO CHANGE A VALUEj ENTER IN COLUMN 1 THE INDEX LETTER FOaOHED BY KEU VALUE (ANYWHERE BUT HEED DECIMAL POINT) 


Il’DFX 

VALUE 

DEFINITION 

.A 

0.50000D-01 

DEL P/P OR TABLE NO, 

3 

0,30000 

DESIGN DUCT MACH # 

B 

3000.0 

EURiiER OUTLET TEMP. 

E 

0.99000 

EFF. OR TABLE NO. 

F 

18300, 

FUa HV 

G 

0,00000 

CROSS SECT, AREA 

II 

0.00000 

INLET BLEED FLOIJ/TOT. BLEED FLOW 

I 

0.00000 

EXIT BLEED FLOW/TOT, BLEED FLOW 

J 

0.50000D-01 

FRACT, OF AIR NOT HEATED 

R 


REVIEW ALL VALUES 

r 


TERHINATE-GO OH TO NEXT COMPONENT 

0 


QUIT-END OF PROCESSII.’G FOR ENTIRE ENGINE 


,D,280oT* 


T 


E5 



COHPOIOT NO. 6 IS A TURB 


TO CHANGE A VALUEt 

ENTER IN COLUHN 1 THE INDEX lETTEft FOLLOUED BY NEU VALUE (ANYUHERE BUT NEED DECIMAL POINT) 

INDEX 

VALUE 

DEFINITION 

A 

3.S0C0 

PRESSURE RATIO 

6 

0.75000 

TOT BLEED IN/TOT BLEED AVAILABLE 

C 

l.C'OOO 

SCALE F ON CCRR. SPEED 

0 

1007.0 

C0r;R. FLC’J TABLE NO. 

E 

1.0000 

SCALE F ON CORR. FLOU 

F 

1003.0 

EFFICmJCY TABLE NO. 

G 

1.0000 

SCALE F OH EFFICIENCY 

H 

1.0000 

SCALE F ON PRESSURE RATIO 

I 

O.COGOO 

BLEED AT ENTRANCE/TOT BLEED IN 

J 

l.OOCO 

3D ARC CN NAP 

K 

0.90000 

EFFICieiCY 

L 

5000.0 

CORRECTED SPEED 

H 

1.0000 

l'.ORSEFC:iR SPLIT 

N 

0.00000 

FACTOR FOR COOaNG TYPE 

P 

0.00000 

IWHEER OF STAGES 

R 


REVIEW Aa VALUES 

T 


7ERHINATE-G0 ON TO NEH CC.MPONENT 

Q 


QUIT-END OF PROCESSING FOR ENTIRE ENGINE 





C0NP0?{EKT NO. 7 IS A TURB 

TO CHA.‘<G£ A VALUEf ENTER IN COLWN 1 THE INDEX UETTER FOLLOWED BY NEH VALUE (ANYUHERE BUT NEED DECIKAL FOINT) 


INDEX 

VALUE 

DEFINITION 

A 

2.5000 

PRESSURE RATIO 

B 

0.25000 

TOT BLEED mOT BLEED AVAILABLE 

G 

1,0000 

SCALE F ON CORO. SPEED 

D 

1009.0 

CORR. aOW TABLE NO. 

E 

i.oooo 

SCALE F ON CORR, ROW 

F 

1010.0 

EFFICIENCY TABLE NO. 

6 

1.0000 

SCALE F OH EFFICIENCY 

H 

1,0000 

SCALE F ON PRESSURE RATIO 

.1 

1.0000 

BLEED AT eiTRANCE/TOT BLEED IN 

J 

1.0000 

3D ARG ON NAP 

K 

0.90000 

EFFICIENCY 

L 

5000.0 

CORRECTED SPEED 

N 

1.0000 

H2?.s£PC'.IR SPLIT 

N 

0.00000 

FACTOR FOR COOLING TYPE 

P 

0,00000 

NUJiBER OF STAGES 

.R 


REVIEW ALL VALLiES 

. T 


TERNIHATE-GO ON TO NEXT COIIPONENT 

a 


OUIT-END OF PROCESSING FOR ENTIRE ENGINE 

K .91 



L 520o7, . 



.R 


E6 


A 

2.5000 

PRESSURE RATIO 

B 

0.25000 

TOT BLEED IN/TOT BLEED AVAILABLE 

C 

1.0000 ‘ 

SCALE F OH CORR, SPEED 

D 

1009.0 

CGRR. FLOW TABLE NO. 

E 

1.0000 

SCALE F DN CCRR. FLOW 

F 

1010.0 

EFFICIENCY TABLE NO. 

6 

1.0000 

SCALE F OH EFFICIENCY 

H 

l.OODO 

SCALE F C.H PRESSURE RATIO 

I 

l.COOO 

BLEED AT EHTRAHCE/TOT BLEED IN 

J 

1.0000 

30 ARG OH HAP 

K 

0.91000 

EFFICIENCY 

L 

5200,0 

CORRECTED SPEED 

N 

1.0000 

HGn':EF'c:"R split 

N 

0.00000 

FACTOR FOR COOLING TYPE 

P 

0.00000 

NUNIER OF STAGES 

,R 


REVIEW ALL VALUES 

T 


TERMHIATE-GO ON TO NEXT COMPONENT 

Q 


OUIT-END OFP ROCESSINO FOR ENTIRE ENGINE 


CaMPOKEHT KD. 8 IS A KOZZ 

. TO GRANGE A VALUEf EJITER IN COLl!«N 1 THE IKKEX LETTER FOaOWED BY HEW VALUE (ANYWHERE BUT NEED DECIMAL POINT) 


INDEX 

VALUE 

DEFINITION 

A 

0.00000 

AREA-EXIT CONV.rTHROAT CD 

B 

O.9GO00 

FLOH COEFF OR TAB REF NO. 

D 

0.00000 

NOZZLE EXIT STATIC P 

E 

0.97500 

VELOCITY CCEFF. OS TAB. REF. NO. 

n* 

i 

1.0000 

3HITCH-(C=C0NV OR 1=C-D) NOZZLE 

G 

0,00000 

AREA SUITCH-(0=FIX AREA OR 1=FL0AT AREA) 

I 

1,0000 

IF ITEM D=0. SET = IJJLET CC.HPOiENT )«). 

R 


REVIEW ALL VALUES 

T 


TERHINATE-GO ON TO NEXT COilPCNENT 

Q 


OUIT-END OF PROCESSING FOR ENTIRE ENGINE 


P 0 ..., 

T 


E7 



COKrOilCKT KO. 9 IS A C'JCT 


( . • 


TO CH.VJGE A VALUE» EffTER IN COLUMN 1 TIE INDEX l£TTER FIWLLO«0> BY KER VALUE (AHYKKERE BUT NEED DECInAL POINT) 

INDEX VALUE PEFINITIGH . . 

A 0.3?OOOD-Ol DEL P/P C'{ TADLE NOi 

B o.oocoo r£Li::i duct kach ♦ 

D O.OOODO DL'R'.ER CUTLET TE!IP, 

E O.D:000 EFF, fR TAaE HO, 

F O.CwOO FUEL i;V 

G O.OOCOO Cf:CES SECT, m 

H O.OOODO JiiLET FLED FLCU/TOT, BLEED aCU 
I O.OOOSO EXIT ILEED FLCl.'/TOT, BLEED aOU 

J 0.00000 FA'ACT, OF AIK »;JT HEATED 

R f£VIi?.) ALL VALUES 

T TERIi!KATE-GO CM TO MXT COI^JOIT 

Q tiUIT-EliD OF PROCESSING FOR ENTIRE EHSM 

t] 

coiPONan NO. lo is a i;on 

TO CIKI3E A VALUE. ENTER IN COLUIIM 1 TIE INDEX LETTER FOLLOWED BY NEW VALUE (ANYWHERE BUT NEED DECIMAL POINT) 


INDEX 

VALUE 

DEFINITION 

A 

0.00000 

AJEA-EXIT COfIV.iTIKOAT CD 

B 

O.VoCOO 

FLG'J CCEFF GS TAB REF KO, 

B 

0,00000 

NOZZLE EXIT STATIC P 

E 

0.93000 

VELOCITY CCEFF, OR TAB, REF. KO. 

F 

1.0000 

SUITCH-(C=CC)!V OR 1=C-D) NOZZLE 

G 

0.00000 

AT£A SHITCH'(0=FIX AREA OR 1=FL0AT AREA) 

I 

1.0000 

IF ITEM B=0. SET = DIET C03F0NQIT KO. 

R 


REVIEW ALL VALUES 

T 


TERHINATE-GO OR TO NEXT COHPOieiT 

Q 


OL'IT-EHD OF PROCESSING FOR ENTIRE ENGINE 


. E !• 


.0 

..TERHIflATEDl STOP 00CO3 

SAMPLE. SEPFLOTF HAS BEEN USED TO CREATE ALL.CQfIPONTS 
GO! 
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SAMPLE SEPARATE FLOW TURBOFAN 
XD DRAU=TfTABLES=T»PINPUT=T SEND 
XD MODE=l 

K0NFIG(l»l)=4HINLT»l»0»2»0»SPEC(l»l)=80,00»0*f0»'j0i»0ii 
0*9700»0* »0* »0* »0« »Of » IStOOf 

K0NFIG(lf2)=4HC0HP»2f0»3f0»SPEC(l»2)=1.500»0.fl.0rl001.»l*0» 

1002. »1.0» 1003. »1. Of 0»»0.»0.8800»2.950fl»0f 

K0NFIG<lf3)=4HSPLTf3f0f4fl0fSPEC(lf3)=1.0»O.2000D-01f0.2000D-01f 

KONFIG(li4)=4HCOMPf4fOi5fl3fSPEC<lf4)=1.300f0.5000D-01fl.Ofl004.fl.Of 

1005.fl.0fl006.fl.0f0.f0.f0.8700f6.200f0.9850f 

KONFIG(lf5)=4HDUCTf5fOf6fOfSPEC(lf5)=0.5000D-01f0.3000f0.f2800.f0.9900f 

0.1830D05f0.f0.f0.f0.5000D-01f 

KONFIG<lf6)=4HTURBf6fl3f7f0»SPEC(lf6)=3.500fO.75O0fl.0fl007.fl.0f 

1008.fl.0fl.0f0.8000fl.0f0.9000f5000.fl.0f 

K0NFIGaf7)=4HTURBf7fl3f8»OfSPEC(lf7)=2.5O0f0.2500fl.0fl009.fl.0f 

1010.fl.0fl,0fl.0fl.0f0.9100f5200.fl.0f 

KONFIG(lf8)=4HN0ZZf8f0f9f0fSPEC(lf8)=O.fO.9800fO.»0.f0.9750f 
0. fO. lO. f 1 .Of 

K0NFI6(lf9)=4HDUCTf 10fOfllfOfSPEC(lf9>=0.3000D-01f 
K0NFIG(lfl0)=4HN0ZZ»llf0f 12f0fSPEC(lfl0)=0.f0.9800f0.,0.fl.0f 
l.OfO.fO.fl.Of 

KONFIG(lfll)=4HL0ADf0f0fOf0fSPEC(lfll)=-200.0f 

K0NFI6<lfl2)=4H8HFTf4f6fllf0fSPEC(lfl2)=8000.fl.0fl.0fl.0f0.f 

l.Ofl.Ofl.Of 

K0NFIG(lfl3)=4HSHFTf2f7f0f0fSPECafl3)=6000.fl.0fl.0f0.f0,f 

I. Ofl.Of 

KQNFIG(lfl4)=4HCNTLfSPCNTL(lfl4)=1.0f7.0f4HSTAPf8.0f 
8 . 0 f 0 . f 0 . 1000D~02 f 0 . f 0 . f 

K0NFIG(lfl5)=4HCNTLfSPCNTL(lfl5)=1.0f6.0f4HSTAPf8.0f 
7.0f 0. f 0. 1000D“02f 0. f 0. f 

K0NFI6(lfl6)=4HCNTLfSPCNTLaf 16) = 1.0f4.0f4HSTAPf8.0f 
6.0f0.f0.1000D-02fl.l00fl.750f . 

KONFIGdf 17)=4HCNTLfSPCNTL(lf 17) = 1.0f3.0f4HSTAPf8.0f 

II. 00f0.f0.1000D-02f0.f0.f 

K0NFI6(lfl8)=4HCNTLfSPCNTUlfl8)=i.0f2.0f4HSTAPf8.0f 

4.0f0,f0.1000D-02fl.l00f2.100f 

K0NFIG<lfl9)=4HCNTLfSPCNTL(lf 19)=1.0fl.Of4HSTAPfS.0f 
2.0f0. f0.1000D“02f0. rO. f 

K0NFIG(lf20)=4HCNTLfSPCNTL(lf20)=1.0fl2.00f4HD0UTf8.0f 

12.00f0.f0.1000D-02f0.f0. f 

KONFIG(lf21)=4HCi^TLfSPCNTLUf21) = 1.0fl3.00f4HDOUTf8.0f 
13.00f0.f0.1000D-02f0.f0.f 
SEND 

SB ALTP=5000fMACH=.3 SEND 


REKONFIG-CHANGE ALL COMPONENTS 



DEFINITION OF INPUT AND OUTPUT UNITS 


REK0NFI60000000 PROCDEF REKONFIG 

REK0NF160000100 PARAN $OLD>tN£U 

REK0NFI60000200 RELEASE FT } RELEASE XXYYZZ 

REKONFIG0000300 ODEF XXYYZZfVP»LIB.DUHBNNEPrOPTION=JOBLIB 

REK0NFZ60000A00 OOEF FT40F001fVS»«NEU 

REK0NF160000S00 OOEF FT09F001rVSr>0LD 

REK0NFZ60000600 OOEF FTOBFOOlfVSrSKRATCHrRET^T 

REK0NFI00000700 FXNPUT 

REK0NFZ00000800 DEFAULT 8Y8INX>E 

REK0NFI60000900 REOIT tNEU>HPIC 

REKONFIOOOOIOOO <N2IC/ //lOOOvALL 

REK0NFIQ0001040 T>C/0*0000/0./1000»ALL 

REKONFZeOOOiOSO T>C/*000/.0/1000»ALL 

REKONFIQOOOllOO TIC/tEND/ SENO/1000 

REK0NFX600011S0 T)C/tD/tO /lOOO 

REK0NFX60001200 TIC// /lOOO 

REK0NFX0O001300 V8 BNEWIQ 

REKONFI60001400 DEFAULT SYSINX=G 

REKONFIGOOOISOO D ' IQLD HAS BEEN USED TO CREATE $NEU'. 
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